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PLANO DA OBRA 
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li mitac6es da mem6r ia 
t^cmcas de pag inaqa 



PAGINAS GRAFICAS E 



A EXIGENC I A DE ES PAQQ 



animacQes grAficas 



Depois de axaminar os princfpios 
da paginagSo grifica, vamos, agora, 
explorar suas possibHidades. 
Os programas deste artigo nfio daixarao 
duvidas quanto k sua utilidade. 



Como vimos no artigo da pigina 
1 096, a paginagio grifica — a t^cntca 
de mostrar virias telas grdficas em se- 
qiiencia — apresenta um grande poten- 
cial em diversos tipos de aplica9ao. 
AJem de seu emprego em aiiima*;ao 
computadorizada, as p^ginas graflcas 
podem ser uteis em ireas mais "serias", 
tais como planilhas ftnanceiras ou quais- 
quer outros projetos que exijam a rdpi- 
da mudan?a de uma tela cheia de infor- 
magoes para outra, 

Ji tivemos um contato inicial com es- 
sa t^cnjca. Agora, trataremos de exami- 
nar mais de perto suas possibilidades. 
Antes disso, no entanto, conv^m reca- 
pitular alguns pontos fundamentals. A 
paginacao grdfica consiste, basicamen- 
te, em armazenar cada tela era uma par- 
te da mem6ria e depois recuper^-las uma 
a uma. Essas telas podem conter dife- 
rentes tipos de informagao: grificos de 
alta ou baixa resolugao, textos, ou at^ 
uma combinafio de ambos. Depois de 
armazenadas, elas podem ser chamadas 
em seqiiSncia, sem que se perca tempo 
com o processo de montagem do dese- 
nho. O computador nto precisarA, por- 
tanto, executar uma s^rie de fun^oes de- 
moradas, como a fungao SIN, por 
exemplo. Ele apenas transferiri dados 
de uma parte da memdria para outra. 

£ claro que o processo de montagem 
do desenho continua sendo necess&rio 
em algum porno, mas s6 uma vez para 
cada tela. Depois de prontas, elas po- 
dem ser recuperadas instantaneamente, 
sempre que vocS quiser. 



LIMITACOeS da MEMbRIA 



Cada pdgina gr^fica requer uma cer- 
ta quantidade de mem6ria. Essa quan- 
tidade varia de acordo com a complexi- 
dade do desenho — quanto mais cores 
forem usadas e quanto maior for a re- 



solu^So grdfica, mais mem6ria serd exi- 
gida. I$so impde severas Hmitafdes aos 
microcomputadores e, em alguns casos, 
temos mesmo que sacrificar um pouco 
a qualidade do desenho paia obter mais 
pdginas grificas. 

Tomando as medidas necess^ias pa- 
ra economtzar mem6ria, voce poderi 
conseguir bastante espafo para as pigi- 
nas, Mas nao se esquega de que o pr6- 
prio programa ocupard uma parte des- 
se espayo. Portanto, antes de iniciar os 
trabalhos, calcule cuidadosamente a 
quantidade de memdria que voce ocu- 
pard com suas telas, Verifique se nao e 
aconseihivel baixar um pouco a resolu- 
^ao do desenho ou diminuir o ntimero 
de cores. Com o planejamento, voce n3o 
correri o risco de precisar de mais es- 
pa^o do que o disponfvel na RAM. 

A t^cnica de paginaipSo grafica per- 
mite o acesso a cada tela na mem6ria do 
computador. Dependendo do espa^o 
disponivel, pode-se definir previamen- 
te uma seqiiencia de oito ou mais telas. 



Para^^conomizar espago, lance mao de 
alguris pequenos truques. Por exemplo: 
em uma sequlncia como a da pcigina 
1 144, que mostra uma figura (o "ho- 
mem-rabisco"). as piginas grificas sc- 
riam exibidas na ordem 1, 2, 3, 4, 5, 1, 
2, 3, 4, 5 e assim por diante. Por^m, co- 
mo vocS deve ter observado, existem 
dois pares muito semelhantes: o par 2 
e 4 e o par 3 e 5. Ora, em uma situa^io 
onde qualquer espacinho est^ a premio, 
seri bem melhor armazenar apenas uma 
figura de cada um desses pares. Duran- 
te a projecao das imagens, nem se no- 
tary a diferenga e voce tcrd cconomiza- 
do um bom espa^o. Usando a seqiien- 
cia 1, 2, 3, 2, 3, 1, vocS continuar^ com 
uma animacao de cinco imagens, arma- 
zenando apenas tres telas. 



O Spectrum de 48 K pode manipular, 
no miximo, oito ou nove piginas gra- 
ficas diferentes, com apenas duas cores 
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(INK e PAPKR). E-sse micro tambem 
aprescnta uma limita^;ao que envolve o 
lamanho da tela, Se utilizarmus dois ler- 
(;os dcia, catla pagina gratica otupara 4 
K. Somando mais 2 K, cxigidos pelo 
programa, chcgamos logoao limilc ma- 
ximo de mcm6ria. Levando em conla cs- 
sas limilavocs, o programa que sc segue 
trabalha com oito tclas, mostraiido uma 
estrada cm perspccliva. 

10 BOBDEH 0: PAP£H Or INK 7: 

CLS ^ 

20 CLEAR 27W9 

10 GOSIJB 1 70 

40 LET arcK = M'. LET deal.= llO 

f>0 KOR n=l TO 20 r PLOT RND* ( 

iS-i) .RND"(40)+]30: NEXT n 

60 FOR n=0 TO 7 

70 FOR n>=4 TO 21: PP INT AT m. 

0;- 

-: NEXT m 

80 OonUB ?f.() 

90 GOSUB ?20: LET d«st=(ie3t + 

16 
100 NEXT fi 

110 LET arre^UO: LET rfeBt-64 
120 FOB n=0 TO / 
i30 V,6SUB 2 20: LET arce^arce^ 

J6 
140 PAUSE 4 
ISO NEXT n 
160 OOTO IVO 

170 DATA 1.0. 16, W, 0,0. n, 0.0. 
2.17.176.201 

180 FOB i = 2fiOO() TO 28000 + 11 
J90 READ byte POKE J, byte 
200 NEXT 1 
210 HETimN 
220 POKE 280O'>.<ieMt. 
210 POKE ?8r)0H.3rce 
24 BAND tISR 2fl000 
2')0 HETIJkN 

260 PLOT 0,1 20: DRAW 2'i'.,0 
770 PLOT UB,120: DHAW -Hfi,- 
BO: PLOT 1J8,120: DRAW 117.-60 
280 FOR j=i TO i: BEAD x.Y.fl.b 
: PLOT x.y: DRAW a.h: NEXT j 
Z90 READ x.y.a.b.c.d 
300 PLOT x,y: DRAW a.b: DRAW c 
■ d 

310 RETURN 

320 DATA 128.120. 1 .-1, 140. lOS. 
3 . - 3 . 1 :m . 1 20 , , 2 . 1 ] 8 . 1 40 . 1 , -5 
. 1 . ■) . i .10 , I IB , 1 . - 1 , 160 . 80 . 6 . -6 
. 143. JIB. 0.7. 318. 138. 10. -3, JO, 
1 



,10,1.140.105.4.-4.128,120,1,- 
I.IB4, 105, 0,30. 11 8. 132, 10. 3. 10 
,-3,160.80.6.-6,130,118, 1,-1 
340 DATA 220,90.0.50.118.134. 



10.1 ,10,-1.198,30.8.-8, 13 3,114 
.1,-1, 1 18, 120, 0,4.118. 136, 1.0.- 

1.10,1 

350 DATA 128,120.1,-1.140.105, 

4,-4.80. 100.0,30,1 18,138, 10,-3 

.10.3,130,118. 1,-1.160,80,6.-6 

,5,55,0.100.118,139.10,-4.10.4 

() programa comega inicializaiido a 
tela cm prclo c branco e dcfinindo t> 
RAMTOP cm 27999. A rotina das li- 
nhas 170, 180, 190, 200 c 210 toloca 




uma pcqucna rolina cm linguagcni de 
maquina acima da KAM uccssivei. Fs- 
sa rolina, nnjito rapida, "vcra a rcspon- 
savcl pcia iraiistcrcncia do bloco dc in- 
IbrmavocH da tela para a mcmuria. a 
mcdi Ja que as imageus v:k> scndo ctins- 
truidas c, posleriormcrUc, irii lamlicm 
rccupcra-la.'i, ira/.cndo-as de volta a te- 
la. A linha 40 estabclccc os valores dos 
bytes mais significativos das variaveis 
srcec dest, que contem, respect ivameii- 
le, o endcre^o da area a ser transl'crida 
e o do seu destino. 

A primeira parte da rotioa dos grafi- 
cos, que come^a na linha 50. .simples- 
mente laz desenhos em posi^'oes aleato- 
rias da tela. Esses desenhos sao fixos e, 
apesar de aparecerem em todas as pagi- 
nas, nao sao refeitos a cada vez, pois 
nao estao incluidos na sequfincia prin- 
cipal de figuras, A linha 17p se encarre- 
ga de limpar (sobrepondo espacos) a 



[ja( IC UC u«iiAU uc t^duo icia, .iciii aya^cm 

as estrelas que cstao no alio. Urn laijo 
de oito telas jd estara, entao, eonie<;an- 
do (linha 60). A rotina de graficos de- 
senha o horizonte (linha 260). os lados 



da estrada (linha 270), a pr6pria estra- 
da e OS postes (linha 280) e uma ave cm 
voo (linha 290) — sempre lendo as in- 
formagdes que estao nas linha-s DATA 
ao final do programa (linha 320 em 
diante). 

Rctornando da rolina de descnho, o 
programa e desviado para uma sub- 
rolina de POKE, na linha 220. Esla co- 
pia OS 4 K de cada tela cm urn local 
apropriado da memOria. O endcrcto 
dest e incremeniado com o valor 16 no 
seu byte mais signiticativo (16*255=4 
K), a rim de criar o cspago para a pro- 
xima pagina grafica. O programa vol- 
ta, mais uma vez, para a rotina dc dcse- 
nho e lodo o proccsso se rcpcte oito ve- 
zes, sendo que, a cada vez, a figura e fei- 
la uma po.siv'ao adiantc. 

Em scguida, o programa chama as oi- 
to telas, sucessivamentc, dando o cfci- 



to de animatao. Para isso, o endcre<;o 
dest torna-se o novo sree, a parlir do 
qual a rotina da linha 220 a 250 chama 
cada pagina grafica. 



O TRS-Color apreseiila evidente van- 
tagem sobre os demais microcomputa- 
dores, em virtude de seu poderoso co- 



usuario manipule piginas graficas sem 
muitas complicatoes. No exempio que 
se segue, optamos pela modalidadc gri- 
fica PMODE 3. Cinco p^ginas graficas, 
ocupando tres quartos da tela, serao* 
usadas para se obter uma animapao. 
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10 PCLEAR 4:PM0DE 3: CLEAR 40,92 

15 

20 SCREEN 1.0:FOH K-0 TO 4 : PCLS 

30 C1RCLE(127, 120) ,20,4.1, .1?. . 

55: LINE (110, 116) -(127, 120) . PSET 

.•LINE- {132, 136) . PSET r PAINT (122, 

135) .2,4 

40 DHAW"BM137,136S8F6D10L9U15L4 

D19R17U14E2NE6L8- : PAINT ( 150 . 150 

) , 3.4:DRAWC3BRR4C4" 

50 DRAW-BMllO ,115S16L14U10R21D3 

RU5L24Dl*a^5" : PAINT (90. 120) ,3,4 

60 COLOR ^OR L = TO 5-K:LINEt 

148-L,146-L)-(156+L,146-L) , PSET 

:NEXT 

70 DRAW"BM:41,"+STRS {S6+K)+''C3S 

4F2G2H3E2D4" :l)feAW"BM141 , '■+STRS ( 

INT (88+1. 5*K*K))+"D2F2DL4UE2D4" 

80 DRAWBM" + STRS (INT (141 + 1. e*K) 

)+" ,"+STRS(12/" + 5«K) + "H3E3F2G2DU 

4G2" 

90 COLOR 2: FOR L = TO 5: LINE (11 

0-L«10-K«2.117)-(UO-L«10-K«Z.l 

23) ,PSET:NEXT 

100 FOR L=0 TO 7:LINE(54+L*10+K 

«2.75)-{54+L«10+K«2,69) .PSE'f ;NE 




O programa cometa reservan(io qua- 
tro blocos (1 ,5 K cada) para as informa- 
t;6cs da tela, pois, como selecionamos 
a mod alidade PM01>E 3, cada tela re- 
quisitara 6 K de memoria. 

Ate agora utilizamos 6 K. Como o 
BASIC e a tela de teste ticuparao mais 
1,5 K. I'icaremos com 25 K de memoria 
RAM aproveitaveis. Usando paginas in- 
teiras que rcquerem 6 K cada uma, po- 
deriamos coniar com mais de quairo ic-i 
las de paginas graticas (25 K divididos 
pot 6) — mas isio deixaria muito pou- 
co espavo para o programa. 

Sc limitassemos o desenho a tres 
quartos da tela, cada pagina iria ocupar 
apcnas 4,5 K de memoria. Uiilizaria- 
mos, assim, cinco paginas, deixando li- 
vres 2 K para o programa. Nao h%veria, 
entretanto, cspat;^ para a sistema dc 
operagao de disco. 

Depois de estabelcccr PIVtODi-: i — 
quatro cores com uma resolugao de 12K 
por 192 pontos — , a primeira linha do 
programa limpa a parte menos impor- 
tanie de armazenamento dc sirings aci- 
ma do endcrev'O 9215. Para su^ pro- 
prias rolinas, voce devera definir cssa 
parte por leiuativa e erro. 

A segunda linha continua com o pro- 
cesso de iniciali/at;ao, definindo o mo- 
do de rcsoluv'ao da tela e a cor. Aqui se 
inicia tambem o lago de desenho, cujo 
primeiro comando e um PCLS. 




A rolina de desenho que se segue ocu- 
pa grande parte do programa. A linha 
30 const roi e pinia o corpo da bomba 
de movimento continuo, que forma a 
base da figura. A linha 40 monta o fu- 
nil c o preeiiche com cor. enquanio a li- 
nha 50 Ta/ o mesmo com o cano. As li- 
nhas 60, 70 e i^O cncarregatn-se da que- 
da da agua. As linhas 90. 1(X) c 1 10 de- 
scnham as lislas que ajudam a dar a im- 
pressao de que a agua csta em movimen- 
to. Outros detalhcs da bomba — como 
a rotatao da pa — sao execulados pelas 
linhas 120. 130 e 140. 

A linha 150 copia os tres quartos d« 
tela na memoria — mais precisameiile 
na area detmida pcia linha 10 — e o prtv 
grama volt a para a rolina de desenho. 
para que sejam moniadas as ouiras pa- 
ginas graficas. Cada uma delas c guar- 
dada na memoria quando o programa 
alcanv'a, novamcnte. a linha 150. 

Depois que todas as paginas estive- 
rem armai^enadas, o programa enira na 
rot in a de animai;ao (linha 160), Ksta 
chama todas as telas, cm scqucncia, ate 
o programa scr interrompido. 



Quando usamos um comando grafi- 
co do tipo LINK, por excmplo, o com- 
putador "rabista" o trav'o pedido sobrc 
a tabela de padroes da VRAM. Portan- 
to, .se ft/crmos uma ciipia dcssa tabela 
na RAM, podemos transt'cri-la poste- 
riormentc para a VRAM e o desenho se- 



II 



110 FOR L-0 TO 3:LINE(48,115-L* 
10-K''2)-152.116-L*10-K*Z) , PRESE 
T:NEXT , 

120 IF K'O THEN DRAWBMll . 1 24C 
3K2UE2F2DG2U4" 

130 COLOR 4: FOB L=0 TO 2:A-ATN( 
1)*(L*60-K*12)/45:LINE(127-18*S 
IN (A) , 120-18-COS <A) ) - ( 127 + 18*SI 
N(A) .120+18*COS(A) ) .PSET:NEXT 
140 A-ATN(l)*(e+K*12)/45:DRAW"B 
M"+STB$(INT(12 7-18*SIN(A) ))+"." 
+STRS tINT ( UO + ie^COS (A) ) ) +"C3E2 
UH2G2DF2U6C4' 

150 FOR L-2 TO 4:PC0PY L TO 4+K 
•3+LrNEXT L,K 

160 FOR L-1 TO 5: FOR K=2 TO 4 : P 
copy K+L*3+l TO K:NEXT K,L:GOTO 
160 



f 




tA imediatamente refeito. Poderiamos 
tambem armazenar a tabela de cores, 
mas isso acrescentaria 6144 bytes aos 
6144 bytes da tabela de padroes, o que 
DOS limitaria ao uso de, no miximo, 
uma pdgina grSfica. Para que nossa te- 
la nao fique sem cor, carregaremos a ta- 
bela de cor com um niimero especifico 
que deflniri as cores de fundo e de fren- 
te. Nossc desenho (um beija-flpr) teri, 
portanto, apenas duas cores. 6m com- 
pensa^ao, economizamos o suficiente 
para tres piginas grdficas. 

Para transferir os dados da VRAM 
para a RAM, recorreremos a uma roti- 
na da ROM chamada LDIRMV. Para 
fazer o contrdrio, usaremos uma outra 
retina, a LDIRVM. Finalmente, para 
carregar a tabela de cores com um byte es- 
pecifico, utilizaremos a rotina FILVRM, 
que preenche qualquer irea da VRAM 
com um determinado valor. O acesso a 
essas retinas requer a introdu^So de al- 
gims valores nos registradores da mdqui- 
na. Por isso, construiremos uma peque- 
na rotina em linguagem de maquina pia- 
ra chamar cada rotina da ROM. 

10 CLS 

20 CILEAI1200, 40960! 

30 DEFUSR=40960! 

40 DEFUSBl-40973! 

50 DEFUSR2=40986! 

60 FOB H-0 TO 3 7 

70 READ A 

80 POKE (40960 !+B) ,A 



90 NEXT 

100 SCHEEN2 

110 X1=112:X1'67:N=16 

120 G0SU8 4 30 

130 A-USR{0) 

140 SCBEEN2 

150 X1=115:Y1=B3:N=19 

160 GOSlfB 4 30 

170 POKE 4 09641 .0 

180 POKE 40965! ,165 

190 A=IJSR(0> 

200 SCREEN 2 

210 Xl = 158:lfl = 182:N=17 

220 GOSUB 4 30 

230 POKE 40964! ,0 

240 POKE 40965! ,209 

250 A=(JSR (0) 

260 POKE 40990! ,1*16+11 

270 A=USR2 (0) 

280 FOR r-1 TO 3: ON I GOSUB 310 

.350.390 rNEXT 

290 FOR 1-3 TO 1 STEP -1:0N I G 

03UB 310,35O,39O:NEXT 

300 GOTO 280 

310 POKE 40974! ,0 

320 POKE 40975! ,161 

330 A=USR1(0) 

340 PETUI^N 

3S0 POKE 40974! ,0 

360 POKE 40975! ,185 

370 A=USR1(0) 

380 RETURN 

390 POKE 4 0974! ,0 

400 POKE 40975! .209 

410 A-USRl(O) 

4 20 RETURN 

430 FOR 1=1 TO N 

440 READ X2 



450 READ Y2 

460 LINE(X1,¥.U-(X2.Y2) 

470 LET X1-X2:LET Y1-Y2 

480 NEXT I 

490 RETURN 

500 DATA 33.00,00,17,00,161,01. 

00.24,205.89.00,201 

510 DATA 33.00.161,17,00.00.01. 

00,24r205,92,00.201 

520 DATA 33.00.32,62.00,01.00,2 

4,205.86.00,201 

530 DATA 86.3,79,67,90.86,192.3 

, I 76 , 64 , 1 4 1 , 99 , 198 , 1 66 . 1 7 , 186 

540 DATA 115.186,118,138,86,118 

,12, 191,48.139,51.109,67,90,90, 

S6 

650 DATA 96,64.54.48.83,86,115, 

83 , 160 , 80 , 2 40 , 10 2 . 185 . 115 

560 DATA J44, 113,160. 144. 192 , 14 

7,179, 169,] 44. 185, 115.: 48 

570 DATA 66.118.12,191,48,139,5 

l.J09,67.9n.83,86 

580 DATA 182. J60, 224. J2I .166,12 

8,105,83.90,128.160.191 

590 DATA 150,116,105,63.67.90,5 

1,109,48, 139, 10, ]90 

600 DATA 89,118.90, 128,87, J 37.8 

3,176,70.134 

A linha 20 reserva uma ^rea da me- 
m6ria para as rotinas em linguagem de 
md_quina. A linha 30 define o inicio da 
rotina que Ir^ chamar a LDIRMV e a 
linha 40, o inicio da rotina que acessa 
a LDIRVM. A iinha 50 faz o mesmo pa- 
ra a rotina FILVRM. 

O laco fcntre as linhas 60 e 90 1§ as li- 
nhas DATA 500, 510 e 520, que contem 
as rotinas — na ordem em que foram 
citadas — , colocando-as na memoria do 
microcomputador, 

A rotina de desenho localiza-se entre 
as linhas 100 e 270. A cada pigina, o 
computador inicializa as variaveis XI, 
VI e N, que guardam as coordenadas 
iniciais do desenho e o ntimero de pon- 
tes a serem lidos. O programa d entao 
desviado para a sub-retina entre as li- 
nhas 430 e 490, que le as informacfies 
contidas nas linhas 530 a 600 e tra*;a as 
retas. Assim que a figura estiver com* 
pleta, a rotina que armazena a tela na 
RAM € chamada. 

O processo i o mesmo para as outras 
duas pdginas, com uma diferen^a: dois 
comandos POKE irio alterar a sub-re- 
tirna de arraazenamento. Estacontinha, 
inicialmente, o enderefo a partii do qual 
a primeira tela seria guardada na RAM. 
£ claro que nao podemos usar esse mes- 
mo endere^o para as duas outras p^gi- 
nas grdficas. O papel dos comandos PO- 
KE e, portanto, fazer a modifica^ao ne- 
cess^ria para o inicio da segunda e da 
terceira piginas. 

Depois que lodas as telas jd tiverem 
side armazenadas, a linha 260 determi- 
na o valor do byte que preencher^ a ta- 



bela de cores. coIc»cando-o na rotina que 
acessa a FILVRM, vaJor I i a cor de 
f rente — preto — e o valor 116a cor 
de fundo — amarela. A linha 270 cha- 
ma essa rotina. 

Em seguida chega-se a rotina encar- 
regada de altemai as telas. Os dois la- 
?os {liniias 280 e 290) dcterminani uma 
seqiiencia de telas do tipo 1, 1, 2, 3, 3, 
2, I , J , fazendo com que um beija-flor 
em voo permanega mais tempo com as 
asas para cima e para baixo do que na 
posigao intermedi^ria. 

Conforme o valor da varidvel I, o 
programa € desviado para uma sub-ro- 
tina. Nesta, um par de comandos PO- 
KE modifica a rotina que busca os da- 
dos na RAM. Esses comandos definem 
OS endere<;os a partir dos quais a memd- 
ria ser^ transferida para a tela. 

Se voce quiser construir suas pr6prias 
animagoes, elimine a sub-rotina da linha 
430, assim como todas as linhas que a 
chamam. Alem disso, apague tambem 
a linha DATA 530 e as que a seguem e 
cotoque seus comandos grdficos a par- 
I'iT da linha que inicializava as varidveis, 
tendo o miximo cuidado para nao pro- 
vocar sobreposifoes. 



Como voce deve saber, os micros da 
linha Apple oferecem ao usuirio duas 
pdginas grdficas prontas para serem uti- 
lizadas. For meio dos comandos usuais 
do BASIC, nao podemos escrever em 
uma das pdginas sem que cla aparega no 
video. Se isto fosse possivel, eliminaria- 
mos, em uma anima^ao, aquele efeito 
desagradavel provocado pelos coman- 
dos HGR e IiGR2 para limpar a tela — 
enquanto mostrassemos uma tela, esta- 
riamos simultaneatnente limpando e es- 
crevendo na outra. Em seguida, basta- 
ria trocar as duas e repetir o processo 
at^ o fim da animagio. Teriamos, assim, 
'uma velocidade moderada, mas nao ha- 
veria um limite de pAginas grdficas, 

O prdxtmo programa ilustra o desen- 
volvimento desse processo com a anima- 
fao de uma figura — o homem-rabisco 
— , comentada anteriormente. 

10 POKE - 16304, 0:X = 200 

20 HCH : HGRZ r HCOt.OR= 3 

30 POKE Z.10,32: GOSUB 240 

40 POKE - 16300,0 

50 POKE 230,64: GOSUB 280 

60 POKE - 1.6299,0 

70 POKE 230,32: HC0L0B= 0; GOS 

US 240: HCOi:.OR= 3: GOSUB 320 

80 POKE - 16300.0 

90 PI = 32:P2 = 64:Ml = - 1.6.10 

0;H2 = - 16299 

100 POKE 230,P2: HCOL0H= 0: GO 

SUB 280 :X = X - 15: HCOLOH- 3: 




A estmda sem flm no Spectrum. 

GOBUB 280 

110 IF X < 30 THEN STOP 
120 POKE M2,0 

130 POKE 230,P1:X = X + l."): HC 
0LOR= 0: GOSUb' 3 20:X = X - 15: 
HCOLOH- 3: GOSUB 32 
140 POKE Kl.O 

150 POKE 230. PZ: H(:0I,0R= 0: GO 
SUB 280; HCOLOR= 3: GOSUB 240 
160 POKE M2,0 

170 POKE 230. PI: HC0LOR= 0: GO 
BUB 320: HC0LOB= 3: GOSUB 280 
180 POKE Ml.O 

190 POKE 230, PZ: HC0[.OH= 0: GO 
SUB 240: HCOLOH= 3: GOSUB 320 
200 POKE M2,0 
210 TR = PI: PI = PZ:P2 = TH 
220 TR = Ml :M1 = H2;M2 - TR 
2 30 GOTO 100 

240 HPLOT X - 16,136 TO X - 9, 
1.33 TO X.94 TO X + B,I36 TO X.l 
36 

250 HPLOT X,94 TO X - 3, SB TO 
X - 9,.^0 TO X,48 TO X - 3.58 
260 HPLOT X - 10,97 TO X - 4,8 
2 TO X - 3 , 58 TO X + 9 , 98 
2 70 RETURN 

280 HPLOT X - 1.^.136 TO X - 1 1 
,132 TO X - 10,114 TO X - 1.97 
TO X + 7, 136 TO X.136 
290 HPLOT X - 1,97 TO X - 7.61 
TO X - 13,50 TO X - 4,48 TO X 

- 7.61 

300 HPLOT X - 12,97 TO X - 6,8 

S TO X - 7,61 TO X + 1,82 TO X 

+ 2.97 

310 RETURN 

320 HPLOT X - 15, 1.16 TO X - B, 

136 TO X - 5.114 TO X - 1.94 TO 

X - 5,114 TO X + 3,132 TO X - 
3. 136 
330 HPLOT X - 1.94 TO X - 5.61 

TO X - J 2.. 50 TO X - 3,18 TO X 

- 5,61 

340 HPLOT X - 7,98 TO X - 3,61 

TO X + .5.78 TO X - a,90 
350 RETURN 



ANiMApAo grAfica 



As instrufdes para as telas de nume- 
ros 1, 2 e 3 se encontram, reSpectiva- 
mente, a partir das linhas 240, 280 e 320. 
Elas serSo chamadas na ordem 1, 2, 3, 



TRS'Color: bomba moto-contfiiua. 

2, 3, 1. Se quisermos mostrar um dese- 
nho na pdgina 2, por exemplo, teremos 
que executar as etapas do processo des- 
crico em seguida, enquanto a p^gjna 1 
esti na tela: 

- habtlitar a escrita na pdgina 2 

- apagar a pigina 2 

- escrever na pdgina 2 

- mostrar a pdgina 2 na tela 

Para habilitar a escrita em uma p&- 
gina, i necessdrio colocar um determi- 
nado vEdof no endere^o 230 por meio de 
um comando POKE. Se esse vaJor for 
32, qualquer comando grdfico serd exe- 
cutado na pdgina 1 ; se for 64, serd aces- 
sada a pdgina 2. 

Para apagar uma pdgina grdfica, te- 
mos simplesmente de descolorir a figu- 
ra, utilizando a mesma rotina que a 
montou, com HCOLOR = 0. 

Empregamos tambem o comando 
POKE para colocar uma pdgina na te- 
la. Se esse comando for dado no ende- 
re^o ^ByOO, serd moslrada a pdgina 1 ; 
se r^t^Vwo no endere?o -16299, serd 
mosCrada a pdgina 2. Em ambos os ca- 
SOS, por^m, deve haver um comando 
POKE no enderego - 16304; caso con- 
trdrio, serd mostrada a pdgina de texto. 

A fase de inicializa?ao localiza-se en- 
tre a5 linhas 10 e 90, onde ccorrem as 
primeiras impressSes. A varidvel X con- 
trola a posigao horizontal da figura na 
tela e serd incrementada com o valor 15 
a cad a passo. 

Entrc as linhas 100 e 230 situa-se o 
la^o que ird controlar o movimento do 
homem-rabisco at^ o fim da anima^ao. 
Na linha 100 e na linha 130, subtrai-se 
1 5 dessa varidvel para que seja apagada 
a imagem que foi feita antes do in- 
cremento. 

As linhas 210 e 220 promovem a tro- 
ca de valores entre as varidveis PI, P2, 
Ml e M2. Estas definem as pdginas em 
que serSo feitos os desenhos e as pdgi- 
nas que serao mostradas. A troca 6 ne- 
cessdria para que nao se perca a alter- 
nancia de telas. 



Iff^SSI^&VFWIBdl^ 



AVALANCyEs 
A ESCAL ADA 



At^ agora, nosso personagem 
permaneceu indefeso diante dds perigos 
que cercam. Vamos dar-lhe a chance 
de escapar, fazendo com que escale 
a montanha, coira e salte. 



Willie ji sofreu bastante: foi atingi- 
do por pedras, caiu em buracos, levou 
picadas de cobras venenosas e se afogou 
no mar. Precisamos ofereccr-ltie uma 
oportunidade de se defender. Nos pr6- 
ximos tres artigos da s6rie Avalanche, 
veremos como fazer Willie andar, cor- 
rer ou saltar, dando-lhe chance de evi- 
tar a morte prematura. 



O programa a scguir permite que 
Willie inicie a escalada da montanha e 
verifica se ele encontrou atgum perigo 
ou premio peto caminho. 

Caso voce nao esteja usando o mon- 



tador Assembler de INPUT, lembre-se 
de que o niimero 254, na instru^ao in 
a,254, est A entre parenteses. 



10 


REM 


org 59153 


20 


HEM 


pan Id a, (57335) 


30 


REM 


cp 


40 


REM 


jp. nz.jnip 


SO 


REM 


Id a. (57334) 


60 


REM 


cp 1 


70 


REM 


jr s.ama 


80 


REM 


Id hi. (57332) 


90 


REM 


dec hi 


100 


REM 


Id bc,153B4 


110 


REM 


Id a. 45 


120 


REM 


Id de,514 


130 


REM 


call 58970 


140 


REM 


Id be, 57000 


150 


REM 


Id a, 40 


160 


REM 


inc hi 



170 


REM 


Id de,258 


ISO 


REM 


call 58970 


190 


REM 


Id de.2Z592 


200 


REM 


add hl.de 


210 


REM 


Id a, (hi) 


220 


HEM 


CP 45 


230 


REM 


jp z.mby 


240 


REM 


cp 43 


250 


REM 


jr z.mby 


260 


REM 


cp IS J 


270 


REM 


jr z.Diby^^ 


280 


REM 


Id a.Ov^ 





Ill 



i 
1 

1 



ANIMAgAO DO PERSONAGEM 

Q MOMENTQ DE SALTAR 

INICIO DA CAMIMHADA 

ONDE WILLIE 

ESTA PISANDO? 



VERIFICACAO 



DOS PREMIOS 



IMOBILIDADE 



PASSQS FATAIS 

ULTIMO SUSPIRO 



290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 



REM in a, 254 

REM bit 2, a 
REM jr nz,mft 
REM Id b,l 
REM bit 3. a 
HEM jr ncnlj 
REM Id b,I29 

al j Id a.b 
REM Id C57335) , 
HEM jr act 
REM inft bit 3, a 
REM jr nz.mct 




410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
530 
540 
550 
560 
570 

sao 

600 
610 
6Z0 
630 
640 
650 
660 
670 
680 
690 
700 
710 
720 
730 
740 
750 
750 
770 
780 
790 
800 
810 
820 
830 
840 
850 



REM 

REM 
HEM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
HEM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 



Id a.l 

ld(67334) 

met Id hi 

Id de,191 

abc hi , de 

jr ncmor 

Id a.l 

Id (57336) ,a 

mor ret 

mma Id de, 3 

Id hl,lS48 

call 949 

Id hi. C57332) 

Id de, 22561 

add hl,de 

Id a, {hi) 

cp 43 

jr z , mby 

cp 44 

jr z.wts 

cp 42 

jr z , mby 

Id de.32 

add hi , de 

Id a, (hi) 

cp 15 

jr z,mby 

cp 4 5 

jr z,inbY 

cp 43 

jr 3 , mby 

Id hi , (57332) 

Id a, 40 

Id be, 57016 

Id de,514 

call 58970 

inc hi 

Id (57332) 

mts Id a , 

Id (57334) 

ret 

mby Id a, 2 

Id (57336) 

ref 

jmp ret 



(57332) 



hi 



Voce pode testar essas linhas mesmo 
que ainda nio tenha na memdria as ou- 
tras duas rotinas de movimenta^ao de 
Willie. Uma instrufao ret, que serd apa- 
gada mais tarde, foi colocada no fim da 
rotina que acabamos de listar. Em con- 
sequencia, se voce chamar uma rotina 
inexistente, o programa apenas retoma 
e nenhum erro ocorre. 



QUAL E MOViMENTO? 



A variivel na positao de mem6ria 
57 335 informa se Willie ird ou nSo pu- 



lar. O conteiido desta posi?ao i carre- 
gado no acumulador e comparado com 
0. Se nao for igual a 0, Willie iri pular. 
O processador salta, entao, para a roti- 
na jmp, que ainda nao foi publicada. 
Como, em seu lugar, encontra apenas 
uma instni^io ret, volta para o local on- 
de a rotina foi chamada, 

Se Willie nao vai pular (o conteiido 
de 57335 6 0), o processador continua 
a execu^o da rotina. O conteudo da po- 
sicao de mem6ria 57334 d carregado no 
acumulador. Essa posi?ao contem a cha- 
mada varidvel da caminhada. 

Existem duas figuras para Willie — 
numa delas, ele estd com as pernas jun- 
tas e, na outra, com as pernas abertas. 
Enquanto nosso personagem nio se lo- 
comove, a primeira figura d impressa 
continuamente no mesmo lugar. Mas, 
quando ele tsxi. andando, as duas figu- 
ras sao impressas alternadamente. A va- 
riivel da caminhada informa ao proces- 
sador se Willie deve andar uma posicjao 
— nesse caso, a figura adequada e a que 
tern as pernas abertas. 

A instru^io cp 1 verifica qual figura 
serd impressa. Se for a de valor 1 — que 
tern as pernas abertas — , a instru^ao jr 
z,ninia manda o processador para a ro- 
tina que faz Willie andar e imprime es- 
sa figura. Se for a de valor — que tern 
as pernas fechadas — , o processador 
continua. 



HOMEM INVISIVEL 



Ao andar, Willie abre as pernas e se 
desloca uma posi^ao k frente, onde apa- 
rece com as pernas juntas. Portanto, o 
algoritmo que produz esse efeito impri- 
me, em seqiiSncia, as Tiguras 0, 1 e 0. 

Como a figura que tem as pernas 
abertas ocupa duas posi0es adjacentes 
e a que tem as pernas fechadas. s6 uma, 
obtim-se um movimento bem suave. 

Para imprimir a figura 0, € precise 
apagar a figura anterior — do contri- 
rio, teremos vArias partes de Willie pela 
tela. A instru^ao Id hi, (57332) carrega 
a posi^to de Willie — armazenada nos 
endere90S 57332 e 57333 — no par HL. 
Esse valor t decrementado para voltar 
uma posi93o. 

O par BC i entSo carregado com 



16384. Esie ^ o enderefo do topo da te- 
la, onde se encontra o padrao de c^u. 
A € carregado com 45 e DE, com 514, 
A rotina de impressao de biocos em 
58970 i chamada em seguida. Como vo- 
ce deve se lembrar, o par HL, nessa ro- 
tina, contem a posi«;ao na tela, e o par 
BC, apontador de dados. A, por sua 
vez, especifica a cor — 45 i ciano sobre 
ciano — e o par DE frxa o tamanho do 
bloco. O niimero 514 fornece um bloco 
de dois por dois caracteres. D contto 
o niimero de Unhas e E, o numero de co- 
lunas — 2 x 256 + 2 = 514. 

Assim, quando € chamada, essa ro- 
tina imprime um bloco dois por dois de 
ceu na posi^ao imediatamente anterior 
aquela onde voce iri imprimir Willie de 
novo. Em ootras palavras, ela apaga o 
velho Willie que, com suas pernas aber- 
tas, ocupa quatro caracteres. 



IMOBILIDADE 



Agora precisamos imprimir o novo 
Willie com as pernas juntas. Os dados 
para isso come^am em 57000. Logo, o 
par BC e carregado com 57000. O acu- 
muiador A i carregado com 40, c6digo 
de azul sobre fundo ciano, a cor de 
WiUie. 

O par HL, anteriormente decremen- 
tado, volta a ser incrementado para 
apontar a f>osicao do personagem. O par 
DE e carregado com 258 ^ dando um 
bloco de um por dois (1 x 256 + 2 = 
258), o espago que Willie ocupa com as 
pernas juntas. A rotina de impressao de 
biocos e chamada para imprimir Willie. 



ONDE WILLIE ESTA PISANDO? 



Como nosso personagem se moveu 
uma posigao k frente, convem verificar 
onde ele esti pisando. Se for numa co- 
bra, nam buraco ou na igua, o proces- 
sador deve ser informado de sua morte. 

Em primeiro lugar, verifique a cor do 
caractere que estd sob os p^s de Willie. 
O arquivo de cores comega em 22528. 
O valor contido em HL corresponde a 
posigao da tela ocupada pela cabe?a de 
Willie, Mas, como voc6 quer a cor do 
caractere que esta sob seus pfe, precisa- 
ri adicionar o valor 64. 

Per isso, 22592 6 carregado no par de 
regisiros DE e somado ao par HL. O re- 
sultado da instru^ao add hl,de e sempre 
colocado em HL, O conteiido da posi- 
i^ao da mem6ria que HL aponta no mo- 
mento e colocado em A. O acumulador 
passa a conter a cor do caractere que es- 
l& sob OS p^s de Willie. 

Esse valor 6 comparado com 45 — 
ciano sobre ciano, a cor do c6u que 



preenche os buracos. Se for 45, a ins- 
trucao jr z.mdy manda o processador 
para uma rotina carta que faz Willie 
morrer. Se nao hA um buraco debaixo 
de Willie, o conteudo do acumulador e 
comparado com 43 — magenta sobre 
ciano, a cor da cobra — e com 15 — 
branco sobre azul, a cor do mar. Se 
qualquer um desses valores estiver pre- 
sente, o processador salta para a rotina 
mdy e elimina Willie. Caso contrario, o 
processador continua a execuijao da ro- 
tina — Willie estd salvo. 



HORA DE PULAR 



Nesta parte da rotina, a acao se en- 
cerra, efetivamente, com a impressao de 
Willie com as pernas juntas, uma posi- 
gao a frente. Se ele nao morreu, o pas- 
so seguinte consiste em verificar quan- 
do ele ira se mover de novo. Para isso, 
empregamos o comando in. 

Antes, porem, A e carregado com 
— o que .significa que o teclado inteiro 
serd analisado e que qualquer conjunto 
de teclas poderi ser utilizado para con- 
trolar os movimentos de Willie. Embo- 
ra na pagina de instrugoes M e N te- 
nham sido especificadas, outras combi- 
nagoes — tais como J e K ou U e 1 ^ 
sao apropriadas para fazer nossO perso- 
nagem pular e andar. 

O comando in i usado para efetuar 
uma busca na porta 254. A instru^ao bit 
2, a analisa o bit dois do numero encon- 
trado para verificar se a tecia M ^ — ou 
J ou U — foi pressionada, Todos os bits 
equivalentes ^s teclas tern normalmente 
o valor 1 , mas assumem o valor quan- 
do a tecla 6 pressionada. Assim, se M 
foi pressionada, o bit dois 1cm valor 
e o processador ignora a instrugao jr ox. 
Caso contrdrio, ele salta para a rotina 
mft. 

Se a tecla foi pressionada e Willie de- 
ve pular, B e carregado com 1. Em se- 
guida, o bit tres € testado do mesmo mo- 
do. Se N nSo foi pressionada e o bit tres 
tem valor 1 , a instrugao jr nz faz o pro- 
cessador saltar a prdxima instrugao. 
Mas, se a tecla foi pressionada, a ins- 
trugao jr nz nao tem efeito e B 6 carre- 
gado com 129. 

O significado dos numeros I e 129, 
que utilizamos para carregar B, seri ex- 
plicado quando apresentarmos as segoes 
do programa que executam o salto ver- 
tical e o salto k frente. 

O processador transfere o conteudo 
de B para A e o carrega em 57335. Es- 
te, como voce deve se lembrar, corres- 
ponde k posigSo de mem6ria que o pro- 
cessador iri examinar no infcio da roti- 
na para ver se Willie pularA ou nao. 



A instrugao jr met faz o processador 
saltar a pr6xima rotina. 



WILLIE VAl ANDAR? 



Se nao houve pressao sobre M, o pro- 
cessador vai para a rotina mft, Ela ve- 
rifica se apenas a tecla N foi pressiona- 
da — ou seja, se Willie, em vez de pu- 
lar, simplesmenie ira andar. 

Para ver se a tecla N foi pressiona- 
da, bit tr6s t testado de novo. Note 
que o valor da porta 254 ainda estd no 
acumulador — o processador pulou pa- 
ra este ponto da rotina depois que o bit 
dois foi testado. 

Se N nao foi pressionada, jr nz salta 
a rotina seguinte. Caso contrario, A e 
carregado com 1 e esse valor e armaze- 
nado no enderego 57334, onde se encon- 
tra a vari^vel da caminhada (que exami- 
namos no inicio da rotina para saber 
quat das figuras de Willie seria impres- 
sa na tela), Um valor 1 nessa posigao in- 
dica que Willie deve ser impresso com 
as pernas abertas — em outras palavras, 
ele esta andando. 



PREMIOS 



Hd apenas mais uma verificagao a fa- 
zer: nosso personagem akangou algum 
premio? 

A posigao de Willie ^ armazenada 
nos enderegos 57332 e 57333. O conteu- 
do desses enderegos e carregado no par 
HL e o valor 191 — correspondente k 
posigao de tela onde o premio foi im- 
presso — € colocado em DE. 

O conteudo desse par de registros e 
subtraido do conteiido de HL. Se at6 
aqui Willie nao tiver obtido uma recom- 
pensa, a instrugao jr nc segue para a ins- 
trugao ret e retorna. Caso contrario, 
valor 1 6 carregado no acumulador e ar- 
mazenado em 57336. Esta e a posigao 
de memiria que a rotina principal veri- 
fica para saber se o escore deve ser in- 
crementado e se 6 precise comegar no- 
va tela. Feito isso, o processador encon- 
tra ret e retorna. 



UM PASSO A FRENTE 



O par DE d carregado com o valor 
3 e HL, com 1548. Depois, a rotina 
BEEP, no endercgo 949, e chamada exe- 
cutando o efeito sonoro da caminhada. 

Antes de seguir adiante, por6m, Wil- 
lie deve ver o que hi na sua frente. Sua 
posigao i colocada no par HL. Adicio- 
nando 22561 a esse valor, obtemos a cor 
do caractere que se encontra 33 pontos 
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adiante do conteudo de 57332 e 57333, 
Como este aponta para a cabe^a de Wil- 
lie, 33 i urn caractere abaixo e k direita, 
indicando a posi^ao imediatamente h 
frente de seus pes. O valor dessa posi- 
^o e carregado no acumulador pela ins- 
trugao Id a,(hl). 

A cor do caractere k frente dos p^s 
de Willie 6 comparada com a cor do mar 
— 1 5, branco sobre azul — da cobra — 
43. magenta sobre ciano — e da pedra 
^ 42, vermelho sobre ciano. Se a cor 
do mar, da cobra ou da pedra estiverem 
presentes, a instru^ao jr z,mdy faz o 
processador saltar para a rotina que di- 
mina Willie. Mas, se adiante dos pes de 
Willie estiver o caractere de encosta, o 
processador salta para a rotina que dei- 
xa personagem parado — € evidente 
que ele nao pode ir em Trenie a nao ser 
pulando. 

Investigar o caractere que esti adian- 
te de Willie nao 6 tudo. Devemos veri- 
fjcar tambem em qual caractere ele es- 
tara pisando depois de se mover. Para 
carrega-se DE com 32, que e adi- 
onado ao conteudo de HL. o que mo- 
apontador 32 caracteres a frente — 
ou scja, para a linha de baixo. 

A cor nessa posiijao e carregada no 
acumulador pela instruijao Id a,(lil) e o 
conteudo do acumulador ^ comparado 
com a cor do mar, a de um espa^o va- 
zio e a de uma cobra. Se um desses va- 
lores estiver presente, a instru9ao jr 
z,mdy vai para a rotina da morte. 

Se nada disso aconteceu e Willie ain- 
da esti vivo, HL e carregado com a po- 
sigao original do personagem. A e car- 
regado com 40 — a cor de Willie — , BC, 
com 57016 — o enderego inicial dos pa- 
droes para a figura com as pernas aber- 
tas — e o par DE, com 514 — Willie 
com as pernas abertas ocupando um 
bloco de dois por dois caracteres. Em se- 
guida, a rotina de impressao de bloco 
em 58970 i chamada e imprime na tela 
Willie com as pernas abertas. 

O par HL 6 increment ado e carrega- 
do de voUa em 57332 e 57333. Atuali- 
zamos, assim, a posifao de Willie que, 
na pr6xima vez, estarS um caractere a 
direita. 



AIWA PARADO 



A rotina mts e diretamente chamada 
quando Willie encontra a encosta k sua 
frente e nao pode prosseguir a nao ser 
pulando. Mas o processador tambem 
aciona essa rotina quando ele foi im- 
presso com as pernas abertas. 

Um valor d carregado no acumula- 
dor e no enderefo 57334, informando ao 
processador que, na pr6xima vez, o per- 
sonagem deve ser impresso com as per- 



nas juntas — mesmo que seja no mes- 
mo lugar, se ele nSo tiver se movido, ou 
uma posigao k frente, se foi impresso 
com as pernas abertas e sua posi^ao foi 

incrementada. 

A seguir, o processador retorna. 



OLTIMO SUSPIRO 



Se Willie se afogou no mar, foi pica- 
do por uma cobra, caiu num buraco ou 
foi atingido por uma pedra, a rotina 
mdy e chamada. Para a divulgagao de 
sua morte, coloca-se 2 no enderefo 
57336. Em algum ponto do programa, 
esse endere?o sera checado e o funeral 
de Willie sera providenciado. 

Depois disso, o processador retorna 
da rotina. O ultimo ret da listagem, pre- 
cedido do r6tulo jrap, sera apagado pe- 
la proxima parte de A valanche. Sua lini- 
ca funcao consiste em impedtr que haja 
erro na falta desta. 



O programa a seguir faz Willie andar 
e verifica se ele se defrontou com algum 
perigo — ou recompensa. 

10 ORG 19902 

ZO MAN LDD 16249 

30 ANDB 131 

40 CMPB 130 

50 BNE MAN! 

60 LDA «1 

70 STA 18252 

80 MANI LDA 18261 

90 LBNE JUM 

100 LDX 18249 

110 LEAX 544, X 

120 LDX.X 

130 CMPX iS5565 

140 LBEQ MDY 

150 CMPX ISAAAA 

160 LBEQ MDY 

170 CMPX IS5FF5 

180 L&EQ MDY 

190 CLHB 

200 CLR 18264 

210 LDA ISBF 

220 STA $FF02 

230 LDA SFFOO 

240 STA 18262 

250 LOA ISDF 

260 STA $FF02 

270 LDA SFFOO 

280 STA 18263 

290 CMPA i$F7 

300 BNEE NANA 

310 LDB #1 

320 LDA 18262 

330 CHPA ISF? 

340 BNE HAND 

350 LDB #129 

360 HAND STB 18261 

370 LDA 18264 

380 BNE MANC 



390 


LDX 18249 


400 


PSHS X 


410 


BtlA MMI 


420 


MANA LDA 18262 


430 


CMPA ISF7 


440 


BNE MAND 


450 


LDA 11 


460 


STA 18264 


470 


BRA HAND 


480 


MANC LDX 18249 


490 


LDU tl536 


500 


JSR CHARPR 


510 


LEAX 254.x 


520 


JSR CHABPR 


530 


LDX 18249 


540 


LEAX 1,X 


550 


PSHS X 


560 


LEAX '353, X 


570 


LDA ,X 


580 


CKPA #$D5 


590 


BEQ MDYA 


600 


CMPA |$FF 


610 


BEQ MDYA 


620 


CMPA #$50 


630 


BEQ MTS 


640 


LDA 18251 


650 


BEQ MMO 


660 


MMI LDX,S 


670 


LDU 117774 


680 


JSR CHAHPH 


690 


LDX ,5 


700 


LEAX 256.x 


710 


JSR CHARPR 


720 


CLR 18251 


730 


BRA MANE 


740 


MMO LDX ,S 


750 


LDU #17814 


760 


JSR CHARPR 


770 


LDX .S 


780 


LEAX 256, X 


790 


LDU #17846 


800 


JSB CHARPR 


810 


LDA #1 


820 


STA 18251 


830 


MANE LDX ,S 


840 


STX 18249 


850 


PULS X 


660 


RTS 


©70 


MDYA PULS X 


B80 


MDY LDA 12 


890 


STA 18252 4 


90 


RTS P 


910 


MTS PULS X / 


920 


LEAX -l.X f I 


930 


PSHS X > 


940 


BRA MMI 


950 


JUM BT3 


960 


CHARPR EQU 194 



Essa rotina chama outran que ainda 
nao estao na mem6ria, Para evitar er- 
ros, nao tente executa-la antes de ter co- 
locado RTS nos lugares adequados. 



RECOMPENSAS 



A primeira parte da rotina procura 
saber se Willie alcantou suas recompen- 
sas. Para isso, a posi?ao do personagem 
na tela t carregada no registrador D. 
Como existem 32 posicoes — 32 ^ 2T5 
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— , precisamos investigar apenas os cin- 
co uttimos bits da posi9ao de tela para 
trabalhar com a coordenada X de Wil- 
lie. Se esta coordenada X tiver chegado 
a 30, a coordenada X do prSmio (cuja 
posi?ao Y estd fixa junto a encosta), 
Willie deve agarr^-lo. 

A opera?ao AND d feita, entao, en- 
tre o conteudo deBe31 — B6o regis- 
irador menos significativo do par de re- 
gistradores AB que compoe D. Isso isola 
OS cinco bits menos significativos, que 
sao comparados ao niiraero 30. 

Se OS cinco liltimos bits contem 30, 
o valor 1 e carregado no acumulador e 
armazenado na varidvel morte, era 
18252. Assim, o processador 6 informa- 
do de que deve trazer a pr6xima tela. 
Caso contr^rio, a instru?ao BNE faz o 
processador sal tar essas instrufoes. 



PULO OU PERIGO 



A i carregado com o conteudo de 
18261, a varidvel do salto. Se nio for 0, 
Willie estari saltando e o processador 
vai para a rotina JUM. Isso € feito com 
um desvio longo porque o r6tulo esti 
muito distante. 

A tare fa seguinte e verificar se o per- 
sonagem estd diante de atgum perigo fa- 
tal — um buraco, uma cobra ou o mar. 
A posigao de Willie vaij eotaio, de 18249 
para o registrador X. 

A instrugao LEAX 544,X adiciona 
544 k posicao de Willie. Como ele tern 
dois caracteres de altura, precisamos 
acrescentar2 x 256(512} para apontar 
seus pds. Adicionamos 32 ao resultado, 
obtendo 544, porque hi uma linha va- 



zia de pontes entre os pes de Willie e o 
chao. O registrador X e carregado com 
o conteudo dos dois bytes que estao sob 
OS p^s de Willie. Esse valor e compara- 
do com $5555. SAAAA e S5FF5. 

$5555 1 o cddigo de araarelo, que re- 
presenta o cdu — o que indicaria haver 
um buraco sob os pes de Willie; SAAAA 
e azul, a cor do mar, e $5FF5, verme- 
Iho sobre amarelo. a cor da cobra. Se 
uma dessas cores for encontrada sob 
seus pes, Willie esti morto e a instru?ao 
LBEQ faz o processador saltar para a 
rotina MDY, que o elimina. 



AS TECLAS 



A tarefa seguinte consiste em verifi- 
car se alguma tecla foi pressionada. As 
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teclas M e N controlam, respectivamen- 
te, a corrida e o salto de Willie. Portan- 
to, qualquer pressao sobre elas precisa 
ser detectada. 

Primeiro (impa-se o registrador B, 
que seri usado para carregar a variavel 
que controla o salto de Willie. A posi- 
cao de memdria 18264 e ajustada com 
0, jd que iri armazenar a variivel que 
controla a caminhada de Willie, 

Para saber se uma tecia foi pressio- 
nada, deve-se analisar a matrtz do tecla- 
do. No nosso caso, estamos interessa- 
dos particularmente nas teclas M e N. 
A letra M fica na quarta col una da sex- 
ta linha e a letra N, na quarta coluna da 
setima linha. 

Para examinar a situaijao de uma te- 
cia, precisamos escrever o numero da li- 
nha em $FF02; sua situagao atual ser^ 




dada em SFFOO. Assim, para verificar 
a tecla N, armazena-se $BF em $FF02. 
$BF t 101 1 1 1 1 1 em binario. e ^ arma- 
zenado porque seleciona a setima linha. 
O resultado em SFFOO ^ carregado no 
acumutador e armazenado em 18262. 

M e examinada da mesma maneira, 
mas, desta vez, $DF — 1101 1111 em bi- 
nario — e escrito em $FF02 e o resulta- 
do ^ armazenado em 18263. A instru?ao 
CMPA # $F7 compara o resultado com 
$F7 ou It 1 101 1 1 . Lembre-se de que vo- 
ce esta tenlando ver se uma tecla da 
quarta linha foi pressionada — esta li- 
nha estari em zero. Se $F7 nao esta pre- 
sente — e Willie nao esta saltando — , 
a instrufao BNE desvia o processador 
para MAN A. Mas, se $F7 estiver pre- 
sente, B e carregado com 1 para indicar 
um salto vertical. 

O resultado do exame da linha da te- 
cla N, armazenado em 18262, e entao 
carregado no acumujador e comparado 
com $F7. Observe que a tecla N estd na 
mesma coluna que a tecla M, embora 
em linha diferente. Se o vaJor n5o for 
encontrado, BNE salta a instruijao se- 
guinte. Caso contr^rio, B e carregado 
com 129 para indicar que Willie dara um 
salto k frente. Quer seja 1 , quer seja 129, 
valor vai para 18261. 



WILLIE ESTA ANDANOO? 



O conteudo da posicao de mem6ria 
18264 e carregado no acumulador. Es- 
ta e a posi?ao que armazena a variavel 
que indica se Willie esti andando ou 
nao. Ela foi limpa, ou seja, ajustada 
com 0, no inicio do programa. Mas, nes- 
te ponto, nao est^ necessariamente va- 
zia porque a rotina que verifica se Wil- 
lie esta andando (que inicia no rotulo 
MANA) salta de voha para MAND. 

Se conteudo da posi^ao de mem6- 
ria 1 8264 nao for e Willie estiver an- 
dando, a instrui^ao BNE faz o proces- 
sador saltar para MANC, onde o pro- 
grama comega a fazer Willie se mover. 
Caso contririo, o registrador X ^ car- 
regado com o conteijdo de 1 8249 (ende- 
rego que armazena a posicao de Willie 
na tela) e guardado na pilha. A instru- 
<;ao BRA MNI faz o processador saltar 
para MNI, que imprime o personagem 
na tela na posicao definida peto ultimo 
valor armazenado na pilha. 

Se M nao foi pressionada e Willie nao 
esti pulando, o processador salta para 
MANA, para ver se ele esta andando. 
O resultado do exame da tecla N, arma- 
zenado em 18262, i carregado de volta 
no acumulador e comparado com $F7 . 
Se o valor nao estd presente, a instru- 
cao BNE manda o processador de voUa 



para MAND. Como a posigio de mc- 
m<iria 18264 ainda estd vazia, Willie e 
impresso no mesmo lugar, Isso signi fi- 
ca que elc esta efetivamente parado. 

Mas, se N foi pressionada e Willie de- 
ve andar, ! e carregado no acumulador 
e armazenado em 18264. Quando o pro- 
cessador saltar de volla para MAND, o 
personagem comegard a andar. 



APAGANDO A FIGURA ANTERIOR 



Quando Willie comega a andar, e 
precise apaga-lo de sua velha posigao na 
tela. Do contrario, partes da figura se- 
rao deixadas pelo caminho. 

X e carregado com a posicao do per- 
sonagem em 18249. O apontador de da- 
dos, U, e carregado com 1536, que cor- 
responde ao canto superior esquerdo da 
tela. Assim, quando o processador sal- 
tar para a sub-rotina CHARPR, impri- 
mird dois caractcres de ceu sobre Wil- 
lie, apagando a metade superior da 
figura. 

Para apagar a metade inferior de 
Willie, adiciona-se 254 a X e a rotina 
CHARPR e chamada outra vez. Soma- 
se 1 a posigao da figura, que e carrega- 
da no registrador X — o que faz Willie 
se mover um caractere a frente. O resul- 
tado e armazenado na pilha. 

Depois que Willie anda, precisamos 
verificar onde ele est^ pisando. A ins- 
trugao LEAX 353,X incrementa o apon- 
tador que passa a indicar um byte ime- 
diatamente a frente das pernas do per- 
sonagem, e LDA ,X carrega esse byte no 
acumulador. Ele ^ entao comparado 
com $D5, a cor gr^fica para a lingua da 
cobra, e com $FF, a cor da pedra. Se 
algum desses valores estiver presente, 
Willie esti condenado, A instrugao BEQ 
manda entao o processador para a roti- 
na MDYA, que o elimina. 

Esse byte tamb^m 6 comparado com 
S50, a cor grifica correspondente a en- 
costa da montanha. Se seu valor estiver 
presente, o processador salta para MTS, 
que volta a imprimir Willie no mesmo 
lugar, evitando que ele ande. 



QUE IMPRMtR 



A posigao de mem6ria 18251 e usa- 
da como uma baliza para informar ao 
processador qual das duas figuras scri 
impressa na prdxima vez — a que tern 
as pernas abertas ou a que tern as per- 
nas juntas. Quando elas sao impressas 
altemadamente, dao a irapressao de que 
Willie estd andando. 

A baliza em 18251 e carregada no 
acumulador. Se estd ajustada com 0, a 
instrugao BEQ faz o processador pas- 
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sar para a rotina que come^a com o r6- 
tulo MNO. Esta imprime a figura com 
as pernas abertas. Mas, se o conteudo 
de 1825 1 nao for e a baliza estiver ajus- 
tada com 1, o salto nao ocorre e o pro- 
cessador continua na rotina MNI, que 
imprime uma figura com as pernas jun- 
tas. Repare que, se Willie nao estiver an- 
dando, o processador tambem pula pa- 
ra MNI e o imprime com as pernas 
juntas. 

X i carregado com o ultimo valor ar- 
mazenado na piltiada miquina. Revcn- 
do a listagem, vo<;e constatarS que o ul- 
timo dado colocado na pilha de mclqui- 
na foi a nova posi^ao de Willie, urn ca- 
ractere adiante de sua ultima posicao. 
O apontador da pilha do usu^io, U, 
que funciona como apontador de dados 
na rotina CHARPR, 6 carregado com 
17774, Estc € o endere?o inicial dos da- 
dos da figura com as pernas juntas. O 
processador vai para a rotina CHARPR 
e imprime a metade superior de Willie. 

O registrador X 6 carregado de novo 
e incrementado com 256, o que faz o 
apontador se mover um caractere para 
baixo — a posi^ao da metade inferior 
de Willie. Observe que nao foi preciso 
carregar U de novo. Ele e o apontador 
da pilha do usuario, e se ajusta automa- 
ticamente quando os dados sao impres- 
sos na tela. 

A posifao de mem6ria 18251 e ajus- 
tada com 0, para que a outra figura de 
Willie — a de pernas juntas — seja im- 
pressa na pr6xima vez. Em seguida, o 
processador vai para MANE. 

Logo abaixo encontra-se a rotina 
MMO, que imprime a figura seguinte de 
WUlic. Ela trabalha exatamente do mes- 
mo modo. Desta vez, porem, U € ajus- . 
tado com 17814, jd que corresponde ao | 
inicio dos dados para a figura com as 
pernas abertas. No final da rotina, I i 
carregado em A e armazenado em 1 825 1 , 
para que Willie seja impresso com as 
pernas juntas na prdxima vez que a ro- 
tina de movim^nta^ao for chamada. 

Qualquer que seja a figura impressa, 
processador aciona a rotina MANE. 
Ela carrega a nova posi^o de nosso per- 
sonagem em X e armazena-a em 1 8249. 
O ultimo valor da pilha t colocado em 
X, para evitar que a pilha de mdquina 
aumente descontroladamente. Oproces- 
sador entao retorna. y*^ % % \ 



MOftTE OU IMOmUDADE 



Se Willie tiver sucumbido a algum 
dos perigos que o ameatavam c estiver 
morto, o processador e mandado para 
MDYA ou MDY — o rdtulo dependcri 
do local onde ele morreu. Se encontrou 
um perigo no infcio do programa, an- 



tes que a nova posi^ao tivesse sido co- 
locada na pilha, o processador iri para 
MDY. Mas, se a nova posi?ao de Willie 
jd foi colocada na pilha antes do passo 
fatal, ele iri para MDVA, e a nova po- 
sic^o seri recuperada da pilha. 

A i carregado com 2 ^ valor que in- 
dica a morte de Willie. Em seguida, es- 
se valor € armazenado em 18252, posi- 
9ao da variivel da morte. 

Feito isso, o processador retorna. 

Se Willie tiver esbarrado na encosta, 
o processador e mandado para MTS. 
Aqui, a nova posifao de Willie e nova- 
mente recuperada da pilha, mas seu va- 
lor e utilizado e, depois de decrementa- 
do em 1. volta k pilha. 

O processador salta mais uma vez pa- 
ra MNI e imprime Willie com as pernas 
juntas, na mesma posi?ao de antes, o 
que o deixa efetivamente parado. 



O programa a seguir permite que 
Willie inicie sua corrida para o topo da 
montanha e vcrifica se ele encontrou al- 
gum perigo ou recompensa. Caso voce 
esteja usando o Assembler de INPUT, 
precisard fazer uma altera^ao: na linha 
5010, o comando DIM TSUOO) muda 
para DIM T$(20(l>, uma vez que a roti- 
na aqui apresentada e muito extensa. 



10 


org 54603 


20 


Id a. t-5202J 


30 


cp 


40 


jp nzipl 


50 


Id a, (-5203) 


60 


cp 1 


70 


JP a.wa 


60 


Id hi, (62407) 


90 


Id de, (-5205) 


100 


add hl.de 


110 


puah hi 


120 


dec hi 


130 


Id a, 255 


140 


push hi 


150 


call 77 


160 


pop hi 


170 


Id cJe.32 


180 


add hl.de 


190 


Id a, 255 


200 


call 7 7 


210 


pop hi 


220 


Id a.O 


230 


puBh hi 


240 


call 77 


2S0 


pop hi 


260 


Id de.3Z 


270 


add hl.de 


280 


Id a.l 


290 


push hi 


300 


call 77 


310 


pop hi 


320 


Id de,32 


330 


add hl.de 


340 


call 74 



350 


CP 72 


360 


JP s,«ire 


370 


cp 74 


380 


jp z,«re 


390 


cp 37 


400 


jp 2, ore 


410 


CP 254 


420 


JP s.nre 


430 


Id a, 4 


440 


call 321 


450 


bit 2, a 


460 


jr nz.Bf 


470 


Id b.l 


480 


bit 3, a 


490 


jr nsc.al 


500 


Id b,129 


510 


ml Id a.b 


520 


Id (-5202) ,a 


530 


jr nc 


540 


Bf bit 3. a 


550 


jr nz.mc 


560 


Id a.l 


570 


Id (-5203), a 


580 


nc Id hi. (-52053 


590 


Id de.222 


600 


sbc hi .de 


610 


jr nz.BO 


620 


Id a.l 


630 


Id (-5201). a 


64 


iBO ret 


650 


wa Id hi, (62407) 


660 


Id de. (-5205) 


670 


add hl.de 


680 


Id de,33 


690 


add hl.de 


700 


puah hi 


710 


call 74 


720 


pop hi 


730 


cp 36 


740 


jr z.are 


750 


cp 52 


760 


jr 2. at 


770 


cp 13 


780 


jr i,iire 


790 


cp 17 


800 


jr z.wre 


810 


Id de,32 


820 


add hl.de 


830 


call 74 


840 


CP 72 


850 


jr a, are 


860 


CP 74 


670 


jr 2, are 


880 


cp 254 


890 


jr s.aire 


900 


CP 37 


910 


jr i.mre 


920 


Id hi. (62407) 


930 


Id de, (-5205) 


940 


add hl.de 


950 


Id 3.4 


960 


push hi 


970 


call 77 


9SD 


pop hi 


990 


inc hi 


1000 


Id a. 6 


1010 


push hi 


1020 


call 77 


1030 


pop hi 


1040 


Id de.32 


1050 


add hl.de 


1060 


Id a, 7 


1070 


puah hi 



\ 



CODIGO DEMAQUiNA 4i 



1080 


call 77 


1090 


pop hi 


1100 


dec hi 


ILIO 


Id a, 5 


1120 


call 77 


1130 


Id hi. (-5205) 


1140 


inc hi 


1150 


Id (-5205) ,hl 


1160 


nt Id a.O 


1170 


Id {-S203).a 


1180 


ret 


1190 


nre Id a, 2 


1200 


Id (-5201). a 


1210 


ret 


1220 


pi ret 


1230 


end 



Voce podc executar essa rotina mes- 
mo sem as duas restantes, que comple- 
tam program a de movimentacao de 
Willie. Embora esta parte possa chamar 
as demais, nao haverderro, Uma instru- 
pao rel, que apagaremos mais tarde, Foi 
colocada no fim da rotina — assim, se 
uma secao inexistente for acessada, o 
programa simplesmente retornari. 



QUE WILLIE VAI FAZER7 



A variavel arma^enada em -5202 in- 
dica se Willie vai ou nao pular. O con- 
leiido dessa posi<;ao e carregado no acu- 
raulador e comparado com 0. Se nao for 
0, o personagem tern que pular e o pro- 
cessador salta para a rotina pi. Esta ain- 
da nao foi publicada e, no seu Eugar, o 
processador encontra apenas uma ins- 
trucao ret, voltando para a rotina prin- 
cipal do jogo, 

Se Willie nao deve pular, ou seja, se 
o conteiido de -5202 e 0, o processador 
continua a execucao da rotina. O con- 
teiido da posipao de mem6ria -5203, 
que guarda a variavel da caminhada, e 
carregado no acumulador. 

Ha duas figuras para Willie — uma 
com as pernas juntas e a outra com as 
pernas abertas. Quando ele estS parado, 
a primeira figura & impressa continua- 
mente no mesmo lugar. Mas, quando es- 
ta andando, as duas figuras sao impres- 
sas alternadamente, A variavel da camj- 
nhada indica ao processador se Willie 
deve andar uma posigao — • nesse caso, 
usa-se a figura de pernas abertas. 

A instru?ao cp 1 verifica se o perso- 
nagem deve andar. Se o valor for 1 , jp 
z,wa manda processador para a roti- 
na que faz Willie andar uma posiifao. 
Do contrdrio, o processador continua a 
executar a mesma rotina. 



ANIMACAO 



Quando estd andando, Willie abre as 

pernas e dd ura passo k frente, apare- 



cendo com as pernas juntas. Temos es- 
ta seqiiSncia (cada item significa uma 
chamada na rotina de movimenta^io): 

- Willie e impresso com as pernas jun- 
tas porque esta im6vel; a tecfa N foi 
presslonada e a variivcl, ajustada. 

- Willie e impresso com as pernas aber- 
tas pela rotina que o faz andar; sua po- 
sigao e incrementada e a variavel da ca- 
minhada ^ ajustada com zero no fim da 
rotina. 

- Willie e impresso com as pernas jun- 
tas, uma posicao k frente, e as teclas sao 
testadas. 

Com as pernas abertas, o persona- 
gem ocupa duas posi?6es adjacentes; 
com as pernas jimtas, uma. Garantimos 
assim um efeito de movimentagao suave. 

Como voce pode concluir da seqijen- 
cia acima, toda vez que Willie for im- 
presso com as pernas fechadas, a posi- 
?So anterior deve ser apagada. Caso 
contririo, partes da figura serao deixa- 
das pelo caminho. 

O par HL e carregado com o endere- 
go inicial da Tabela de Nomes (TN) da 
VRAM, que se encontra nas posigSes 
62407 e 62408. A posi^ao de Willie na 
tela, que esia em -5205 e -5204, e co- 
locada em DE. Os dois valores sao so- 
mados em HL, que passa a conter o en- 
derepo de Willie na TN da VRAM. Es- 
se endere<;o i guar dado na pilha. 

O enderepo em HL € decrementado 

- o que corresponde a voJtar uma po* 
si^ao na tela. Esse valor tamb^m e guai- 
dado na pilha. O acumulador i carre- 
gado com 255. o c6digo do padrao va- 
zio usado como c^u, e a rotina 77 da 
ROM e chamada. Como voce deve se 
lembrar, ela escreve o valor do acumu- 
lador no endere?o da VRAM apontado 
por HL. 

O ultimo valor de HL € recuperado 
da pilha e adicionado a 32, por DE. Is- 
so faz HL apontar para a posicao logo 
abaixo da anterior. O acumulador e no- 
vamente carregado com 255, o padrao 
de ceu, e a rotina 77 6 chamada. 

Todo esse procedimento teve como 
finalidade apagar a metade esquerda do 
nosso personagem que, com as pernas 
abertas, ocupa quatro posicoes. A me- 
tade direita seri apagada quando a fi- 
gura for impressa com as pernas juntas, 
sobreposta k anterior. Repare que isso 
poderia ser desnecessdrio se Willie yk es- 
tivesse com as pernas juntas — mas € 
uma precau?ao sempre tomada. 



IMOBILIDAD€ 



Precisamos agora imprimir a nova fi- 
gura com as pernas juntas. A posic:ao 
que foi armazenada na pilha € recupe- 
rada em HL. O acumulador i carrega- 



do com 0, cbdigo do primetro padrac 
para essa figura. Guarda-se o valor de 
HL na pilha e a rotina 77 6 chamada. 
Ao enderefO, recuperado da pilha e 
colocado em HL, adiciona-se 32 — o 
que significa apontar uma posicSo abai- 
xo. O acumulador e carregado com 1, 
c6digo do segundo padrio da figura. O 
valor de HL e guardado na pilha e a ro- 
tina 77 e chamada. Feilo isso, a figura 
de Willie com as pernas juntas j4 e.sta 
impressa. 



ONDE WILUE ESTA PISAND07 



Como WiUie se moveu uma posigao 
k frente, convem verificar onde ele esta 
pisando. Note que, mesmo que o per- 
sonagem estivesse parado. esta parte da 
rotina seria executada. Se ele estiver pi- 
sando numa cobra, num buraco ou na 
igua, o processador deve ser informa- 
do de sua morte. 

A primeira coisa a fazer e verificar 
qua] o codigo do padrao que esta sob 

05 p& de Willie. O enderego que o pa- 
drao dos p€s ocupa na TN da VRAM 

6 recuperado da pilha e colocado no par 
HL. O valor 32 ^ somado a esse endere- 
po por meio do par DE, fazendo com 
que ele passe a apontar para a posi^ao 
imediatamente abaixo dos pes de Wil- 
lie. A rotina 74 da ROM e chamada e 
faz a leitura da VRAM, devotvendo a 
A o valor da posi^ao apontada por HL. 

Com isso, acumulador passa a con- 
ter c6digo do padrao no qual Willie 
esta pisando. Ess£ valor e comparado 
com 72 e 74, OS padroes de mar; com 
37, padrao da cabefa da cobra, e com 
254, padrao do buraco. Se qualquer 
um desses valores estiver presente, a ins- 
tru^ao jp z,nire manda o processador 
para a rotina mrc, que elimina nosso 
personagem. Caso contririo, o proces- 
sador continua executando a rotina — 
Willie estd salvo. 



HORA DE SALTAR 



A impressao de Willie com as pernas 
juntas corresponde, efetivamente, ao 
fim da agio nesta parte da rotina. Des- 
de que o personagem nao tenha morri- 
do, deveremos verificar se ele iri se mo- 
ver na pr6xima vez. Para isso, exami- 
namos a matriz do teclado. 

O teclado do MSX € controlado pela 
interface de pcrif^ricos PPl (8255). Ca- 
da tecia faz parte de uma matriz e ocu- 
pa uma hnha e coluna detenninadas. 
Para verificar se uma tccla cstk sendo 
pressionada, mandamos um sinal para 






a linha que ela ocupa e checamos se o 
bit correspondente 4 sua coluna tern va- 
lor 0. Essas operafSes cnvolvem escrita 
e leitura na PPI e podem ser implemen- 
tadas com instrufSes in e out nos ende- 
re^os adequados. No nosso case, a re- 
tina 321 da ROM realiza a larefa. Para 
isso, basta colocar no acumulador a li- 
nha da matriz do teclado que queremos 
pesquisaf . A retina 321 devolve nos bits 
do acumulador a situac^o de todas as te- 
clas dessa iinha; se o bit corresponden- 
te a tecla for 0, ela csti sendo pres- 
sionada. 

Como as teclas M e N ocupam a 
quarta linha da matriz do teclado, o acu- 
mulador 6 carregado com 4. Em segui- 
da, a rotina 321 € chamada, A instru- 
fao bit 2.a analisa o bit dois do ntlmero 
cncontrado para verificar se a tecla M 
esta sendo pressionada. Todos os bits 
correspondenics ^s teclas tern, normal- 
mente, valor 1 . Quando a tecla e pres- 
sionada. por^m, eies assumem o valor 
0. Se a tecla M foi pressionada, o bit 
dois tern valor 0. 

Nesse caso, o processador ignora a 
instrufao jr dz. Mas, se M nao tiver si- 
do pressionada, ele salta para a rotina 
mf. Como a tecla M foi pressionada, 
Willie deve pular; o registro B i carre- 
gado com I . 

Depois o bit tres 6 testado da mesma 
maneira. Se N nao foi pressionada, o bit 
ires tem valor 1 e a instruijao jr nz faz 
o processador saltar a pr6xima instru- 
fao. Mas, se a tecla N foi pressionada, 
jr az nao tem efeilo e B i carregado com 
129. 

Seja como for, o processador trans- 
fere o conteiido de B para A e o coloca 
em -5202. Esta, como voce se lembra, 
e a posi^ao de mem6ria que o processa- 
dor examina no inicio da rotina, para 
ver se Willie deve ou nao pular. 

O signiFicado dos numeros 1 e 129 se- 
ra explicado nas duas prbximas seijoes 
de Avalanche, que executam o salto ver- 
tical e o salto k frente. 

A instru^ao jr mc faz o processador 
pular a pr6xima parte. 



WILLIE OEVE ANDAR? 



Se a tecla M nao foi pressionada, o 
processador vai para a rotina mf, que 
checa se a tecla N foi pressionada — ou 
seja, se Willie nao iri pular, mas, sim- 
plesmente, andar. 

O bit tr€s e testado para ver se a te- 
cla N foi pressionada. Note que a leitu- 
ra da matriz do teclado ainda se encon- 
tra no acumulador — o processador pu- 
lou para esta parte da rotina depois que 
bit dois foi testado. 

Se a tecla N nSo tiver sido pressiona- 



da, a instru(;3o jr ax salta a pr6xtma par- 
te. Caso contrario, A ^ carregado com 1 
e esse valor vai para o endere90 -5203, 
onde se encontra a varidvci da caminha- 
da, examinada no inicio da rotina. Nes- 
sa posi^So o valor 1 indica que deve ser 
impressa a figura de Willie que tem as 
pernas abertas — portanto, ele esti 
andando. 



PREMIOS 



Faita verificar apenas um elemento; 
Willie pegou o seu pr€mio? 

A posi^ao do personagem 6 armaze- 
nada nos enderecos -5205 e-5204. O 
conteiido desses cnderegos e dado pelo 
par HL. O valor 222. que corresponde 
a posipao de tela onde o prSmio foi im- 
presso, 6 colocado no par DE. 

O conteiido de DE e subtraido do 
conteudo de HL. Se o resultado for di- 
ferente de 0, Willie nao alcancou o pre- 
mio. A instrui;ao jr itz.mo salta entao 
as prdximas instru(;des. Mas, se o resul- 
tado for 0, o personagem j^ obteve pre- 
mio e o valor I i carregado em -5201 
atrav6s do acumulador. Esta € a posi- 
flo que a rotina principal examina, in- 
formando se o escore deve ser aumen- 
tado e outro nivel iniciado. Feito isso, 
o processador encontra a instru?ao ret 
e retorna. 



UM PASSO A FRENTE 



Antes de prosseguir, Willie deve ve- 
rificar o que existe S sua frente. Sua po- 
sifao e colocada no par DE; o endere9o 
inicial da TN da VRAM, em HL. Os 
dois valores sao somados em HL, que 
passa a center o endere^o na TN que 
corresponde S posigao da cabec^ de Wil- 
lie na tela, O valor 33 6 somado em HL, 
movendo o apontador uma linha para 
baixo e uma posifao para a direita — 
em outras palavras, para a posiipao 
adiante dos p^s de Willie. Esse valor 6 
guardado na pilha e, em seguida, a ro- 
tina 74 da ROM 6 chamada para fazer 
a leitura da VRAM. 

O c6digo do padrao que est A na fren- 
te dos pds de Willie se encontra no acu- 
mulador. Ele € comparado com 36, pa- 
drao da h'ngua da cobra; com 13 e 17, 
padrdes da pedra, e com 52, padrio da 
encosta. Se os padrdes da pedra ou da 
cobra estio presentes, a instrugao jr 
z,nire faz o processador saltw para a ro- 
tina que elimina Willie. Mas, se na po- 
sigSo cstiver o padrao da encosta, o pro- 
cessador salta para a rotina que deixa 
Willie parade. Obviamente, ele nio po- 
de ir em frente a nao ser pulando. 



N5o basta, poreni, identificar o pa- 
drao que estd na frente de Willie. Prc- 
cisamos saber, tamb6m, em que padrao 
ele pisari depois que se mover. Para is- 
so, DE € carregado com 32 e somado ao 
conteiido de HL, que aponta para uma 
posi?ie abaixo da anterior. 

A retina 74 6 novamente chamada e 
o conteudo do acumulador comparado 
com OS padroes do mar, de buraco e da 
Ifngua da cobra. Se quaiquer um desses 
valores estiver presente, a instru?ao jr 
z,mre vai para a rotina da morte. Se na- 
da disso aconteceu e o personagem ain- 
da est^ vivo, o par HL e carregado com 
o endereco inicial da TN, e DE, com a 
posi^ao de Willie na tela. Esse valor i 
somado em HL. 

A rotina 77 e chamada quatro vezes 
para imprimir es quatro padroes da fi- 
gura de Willie com as perrkas abertas, 
cujos cbdigos sao 4, 5, 6 e 7. 

A pesi^ao de personagem i carrega- 
da de-5205 e-5204 para o par HL, in- 
crementada e devolvida. Com isso, atua- 
tizamos a posi^ao de Willie. Na pr6xi- 
ma vez, ele come^ara deslocado um ca- 
ractere para a direita. 



AINDA PARADO 



A rotina mi 6 chamada diretamente 
quando Willie se depara com a encos- 
ta, nao podendo prosseguir a nao ser 
com um pulo. O processador, porem, 
chega a essa rotina quando o persona- 
gem foi impresso com as pemas abertas. 

Um valor e carregado no enderefo 
-5203, porinterm^dio do acumulador, 
indicando ao processador que, na pro- 
xima vez, a figura de Willie deve ser im- 
pressa com as pernas juntas, no mesrao 
lugar ou uma posi^ao a frente. depen- 
dende do que aconteceu. 

Em seguida, o processador retorna. 



ULTIMO SUSPIRO 



Se Willie se afegou no mar, foi pica- 
do per uma cobra, caiu num buraco ou 
foi atingide por uma pedra, a rotina rare 
6 chamada, informando ao resto do pro- 
grama que Wilhe morreu. 

Para que se divulguc essa informa- 
gao, o valor 2 € colocado no endere?o 
-5201, que serd examinado em algum 
ponto do jogo. As providSncias para o 
funeral de Willie serao, entao, tomadas, 

Feito isso, o processador retorna. 

O ultimo ret da listagem, precedido 
do r6tulo pi, seri apagado pela prAxi- 
ma rotina clej4vffl/flrnc/ic. Sua linica fun- 
530 i evitar que, na falta das rotinas, 
ocerra algum erro. 



26 APUCACOES 26 



UMA FLANIIILHIA 
ILETOONBCA (3) 



COMO DAR ENTRADA 

AS EQUACQES 

CQPIA ABSOLUTA E RELATIVA 

USO DE CONSTANTES 

COMPLETANDO PROGRAMA 



Com 8sle anigo, encerramos nossa 
s^fie sobre planithas eletrdnicas. 
OepoJs de acrescentar ao programa as 
linhas aqui apresentadas, voc^ poder^ 
explorar todo o seu potencial. 



Para ter uma planilha completa e 
operacional, carregue na mem6na do 



seu micro as partes J^ dadas do progra- 
ma e acrescente as linhas que faltam, 
Nos artigos anteriores, mostramos, por 
meio de exemplos, como montar uma 
planilha. Agora, que voce jd tern todo 
o programa, veremos como uUIizS-lo. 
As instruijoes que se seguem sao vA- 
lidas para todas as miquinas. As dife- 
ren^as existentes entre o Spectrum e os 
demais microcompuiadores serao sem- 
pre especificadas. 



MONTAGEM DAS EQUAC6ES 



O que faz da planilha eletronica uma 
ferramenta tao versitii 6 sua capacida- 
de de trabalhar com equacoes. N3o se 
assuste com a palavra equagao: nossas 
"cquatoes" nao passam de especifica- 
(;des bastante simples das operaijoes arit- 
meticas de adicionar valores das colu- 
nas, obter o total de uma determinada 
iinha, calcular porcemagem etc. Os ope- 
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USE A PLANILHA 
COM MAIS EFICllNCIA 

Agora que vocfi dispoe de um pro- 
grama para a elaboragao de uma plarri- 
Iha de cSlculo, conv6m conhecer al- 
guns "truques" que Ihe permitirio uti- 
\\zi-\a de maneira bem mais r^pida e eft- 
ciente: 

• Preenchimento da planiiha: depois de 
definir o tftuto geral e os subtftulos das 
se?6es, dedique-se ao "esqueleto" da 
pianiiha, ou seja, d identificaipdo das li- 
nhas e colunas, Em seguida, cobque 
OS dados propriamente ditos e, final- 
mente, asfdrmulas. Procederi.doassim, 
vocS diminuird as chances de cometer 
erros de entrada e evitar^ que $e exe- 
cutem cSlculos antes que todos os da- 
dos e rdtulos estejam presentes. 

• Cuidado com os lagos sem fim; esse 
tipo de problema pode ocorrer quan- 
do se colocam duas f6rmulas em c6lu- 
las diterentes, uma utitizando o resul- 
tado do cSlculo da outra, Em conse- 
qudncia, o programs "emperra", pois 
a detecpao de uma situapao como es- 
ta n§o foi prevista. Nao deixe de veri- 
ficar todas as formulas arttes de exe- 
cutsr o programa. 



llffi 



radores usados s3o: mais ( + ), menos 
(-), vezes (*), dividido (/), por cento 
(%), total de linhas (&) e total de colu- 
nas ($). 

Para escrever uma equagao, indica- 
se o nome da primeira celula, depois o 
nome da segunda c61ula e, por ultimo, 
o operador. Vejamos alguns exemplos. 
Sc colocarmos A1A2-I- na celula CI, 
pbteremos a soma dos valores contidos 
era Al e A2 na cdula CI. A equacao 
AIAIOS soma todos os valores dacolu- 
na A, da linha 1 at^ a linha 10. Da mes- 
ma maneira, A6F6& soma todos os va- 
lores da linha 6, come^ando na coluna 
A e tenninando na coluna F. Finaimente» 
A5B2<?o i calculado como A5*B2/100, 
o que dd B2 por cento de A5, As equa- 
(;des sao colocadas nas c^lulas em que 
se quer que apare?am os resultados. 

Com exce?ao das versSes destinadas 
ao Spectrum e ao Apple, o programa 
permite ainda que se acrescente um nii- 
mero no fim da equa^So para especifi- 
car a quantidade de casas decimals que 
aparecem na resposta. 



C6PIA ABSOLUTA E flEUTIVA 



O programa oferece a alter nativa de 
se copiar o conteiido de uma c6lula._ Is- 
so nos poupa o trabalho de redigitar 
uma formula em todas as c^Iulas cm que 
serd usada. Podemos escolher entre uma 
c6pia absoluta ou retativa. A c6pia ab- 
sotuta produz uma replica identica da 
celula, onde quer que voce queira, seja 
numa unica cduia, seja numa coluna in- 
teira. A c6pia relativa, usada especial- 
mente para cquagoes, sofre alterapoes 
conforme a linha e a coluna para onde 
estA sendo copiada. 

Suponhamos que voce tem A 1 B 1 * na 
cdlula CI e quer que toda celula da co- 
luna C contenha o produto das duas co- 
lunas anteriores — ou seja, A2B2* em 
C2, A3B3* em C3 etc. A c(5pia relativa 
faz isso para voc6. O procedimento e o 
seguinte: pressione a tecla de c6pia (ve- 
rifique, adiante, qua! a tecla que seu mi- 
cro usa), selecione R (para relativa) e co- 
loque o cursor sobre a celula a ser co- 
piada (no Spectrum, digita-se o nome da 
celula). Em seguida» defina se a copia 
deve ser feita em linha ou coluna — no 
nosso caso, pressione C. Finalmente, di- 
gite o nome da celula inicial (CI) e da 
final (CIO, por exemplo). O programa, 
assim, preencherd toda a coluna para 
voce. 

Experimente tamb^m copiar valores 
em linhas e obter c6pias absolutas de 
equafoes e valores. 



CONSTANTES 



Precisamos, com freqiiencia, utilizar 
constantes em uma equagao ^ por 
exemplo, um valor como 17, para cal- 
cular a porcentagem do ICM, ou como 
10, para calcular descontos. 

Como nao se pode colocar niimeros 
diretamente em uma equagao — que e 
baseada no conteiido de duas c^lulas — , 
empregam-se diferentes m^todos para a 
introdu?ao de constantes. 

No Spectrum , elas costumam ser pre- 
cedidas pela letra Z. Assim, AlZn^ 
calcula o ICM de um valor colocado na 
celula Al. Nos demais micros, as cons- 
tantes devem ser colocadas na coluna Z. 
Retomando o liltimo exemplo: o valor 
17 serd colocado na cilula Zl e a equa- 
93o tomari a forma A1ZI%. 

Esse procedimento e necessdrio por- 
que OS valores das constantes nao devem 
ser alterados nem mesmo quando se op- 
ta por uma c6pia relativa. Se reservar- 
mos uma coluna para elas, estaremos as- 
segurando um tratamento diferenciado 
na hora da cdpia. 



USO DO PROGRAMA 



Existem algumas variacoes, de ma- 
quina para miquina, no que diz respei- 
to k coiocacao de valores, rdtulos e 
equa^Oes na planiiha, assim como a exe- 
cugao das operapoes. Comentaremos, 
em seguida, os detalhes especificos pa- 
ra cada miciocomputador. 



O programa do Spectrum demora um 
pouco para definir as vari^veis internas. 
Assim, voce terd uma tela vazia por al- 
guns momentos ap6s teclar RUN. A te- 
la aparece no modo de valores — o que 
significa que valores e rdtulos podem ser 
inseridos, Pressione E para passar ao 
modo de equagao e V para voltar ao de 
valores. Para introduzir um dado em 
uma cdula, use as teclas de controle do 
cursor; ao chegar ^ celula correta, pres- 
sione I. Em seguida, digite o que quiser. 

As equagocs sao mostradas sobre 
fundo amarelo, com os valores em pre- 
to e OS rdtulos em azul, Considera-se ro- 
tulo qualquer dado digitado no modo de 
valores que comece com uma letra. Co- 
mo as cores aparecem em qualquer mo- 
do, voce pode distinguir facilmente as 
celulas que contem equafSes mesmo que 
esteja vendo a folha no modo de valo- 
res ou vice-versa. 

A tela exibe apenas quatro colunas e 
dez linhas de cada vez. mas ^ possivel 
mudar para outra parte da planiiha pres- 
sionando-se simultaneamente as teclas 
de controle do cursor e < SYMBOL 
SHIFT >. 

Tente inserir alguns valores e r6tulos, 
mude para o modo de equagoes e some 
OS valores das colunas e linhas. Para ver 

resultado dos cilculos, volte para a tela 
de valores e pressione C e < SYMBOL 
SHIFT > . Se algum niimero for muito 
grande e nao couber na celula, os digi- 
tos da direita serao elirainados e os que 
permanecerem na tela ficarao piscando 
como aviso. 

Agora, experimente copiar algumas 
equa^oes e valores usando a tecla Z. O 
programa pediri toda a informa^ao que 
for necessaria. 

Segue-se a lista de comandos usados 
pelo programa: 
V mostra a tela de valores; 
E mostra a tela de equapoes; 

1 insere um dado em uma celula; 

I seguido de < ENTER > apaga um 

valor ou r6tulo; 
I seguido de # apaga uma equagSo; 
C mais < SYMBOL SHIFT > calcula 

OS valores da planiiha; 

< SPACE > mais < SYMBOL SHIFr> 



interrompe os cdlciilos; 
Z copia uma c^lula; 
S mais < SYMBOL SHIFT > grava 

dados em fita; 
J mais < SYMBOL SHIFT > carrega 

dados da fita; 
P imprime a teia em uma impressora; 
Teclas de controle do cursor movem o 

cursor; 
Tecias de controle mais < SYMBOL 

SHIFT > movem a janela de texto. 
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Ao executar o programa, voc§ verA 
apenas a parte superior esquerda da pla- 
nilha; se quiser examinar qualquer ou- 
tra parte, recorra ^s teclas de controle 
do cursor (no micro Apple, mova o cur- 
sor para cima e para baixo usando as te- 
clas A e Z). Voce pode tarab^m passar 
diretamente para qualquer ponto da pla- 
nilha digitando G. 

As teclas V e E alternam as telas de 
equafoes e valores. E possivel entrar va- 
lores nas duas telas. mas os resultados 
s6 serao mostrados na tela de valores. 
Para inserir um dado em uma ceiula, 
mova o cursor at^ eia e presstone 1, De- 
pois, digite sua entrada. 

As equa9dcs sao dlgitadas conforme 
descrevemos anteriormente. No TRS- 
Color e no MSX podemos discriminar 

numero de casas decimals do resulta- 
do. AlBl/2, por exemplo, mostra o re- 
sultado de Al dividido por Bl com duas 
casas decimais. Esse recurso e muito litil 
quando estamos lidando com valores fi- 
nanceiros. No caso de obtermos niime- 
ros que excedam o tamanho da c^lula, 
a mensagem <0V> serd exibida. 

Eis as teclas usadas no programa: 
V mostra a tela de valores; 
E mostra a tela de equagoes; 

1 insere um r6tulo, valor ou equa^ao; 
C copia uma c6lula; 

S grava dados no cassete ou disco; 

L le dados do cassete ou disco; 

Q sai do programa; 

Teclas de controle do cursor movem 
cursor e a janela de texto (no Apple, 
usam-se A e Z para mover o cursor 
para cima e para baixo). 



910 IF 1-3 THEN LET v(l)-( 
CODE b3{11J-64: LET v(2)-VAL a 
3(2): LET v(3)-(C0DE s$(3J)-64 
: LET v(4)-yAL s3 C4 TO 5): LET 
oS-8S(6) : RETURN 
920 IF 2-4 THEN LET v(l)-( 
CODE aS(l))-64: LET v(2)-VAL b 
5(2 TO 3); LET v(3)-(C0DE aS (4 
))-64: LET v{4)-VAL b5(5 TO 6) 
-. LET oS=B$t7) : RETURN 



930 IF 1-5 THEN LET v(l)-( 

CODE a${l))~6A.: LET v(2)-VAL b 
$(2): LET v(3>-(C0DE s5(3))-64 
: LET v(4)-UAL aS(4): LET o3-S 
$(5) : RETURN 

940 IF 3=6 THEN LET v(l)"( 
CODE b3(1))-64: LET v{2J=VAL s 
St2 TO- 3): LET v (3)- (CODE 8$ (4 
))-64: LET v(4}-VAL S$(5); LET 
o3-aS(6) : RETURN 
950 IF 2-7 THEN LET va)-( 
CODE B$(l))-64; LET v(2)-VAL a 
5(2): LET v(3)-CC0nE s5(3))-64 
: LET v(4)-VAL 8$ (4 TO 5): LET 
ci3-aS(6) : RETURN 
960 IF Z-e THEN LET v(l)-( 
CODE aS(l)}-64: LET v(2)-yAL a 
S{2 TO 3) : LET v (3) -(CODE sS(4 
))-64: LET vt4)-UAL bS(5 TO 6) 
; LET o$-B$(7'i : RETURN 
970 IF 2-9 THEN LET vtl)"{ 
CODE aS(l))-64; LET v(2)=UAL a 
S{2): LET v(3)=tC0DE 83(3)) -64 
; LET v(4)-=WAL aSC4 TO 6): LET 
oS-sSC7) : RETURN 
980 IF z-10 THEN LET v(l)-( 
CODE aS(l))-64: LET v(2)=UAL s 
S(2 TO 3) r LET v(3)-(C0DE aS(4 
))-64: LET vtO-'VAL aSfS TO 7 
): LET o$-aS(8): RETURN 
990 LET v(I)=(CODE hS(1))-64; 
LET v(2)-UAL 3$(2); LET vt3)-( 
CODE 9$C3)}-64: LET v(4)-yAL a 
$(4 TO 7) ; LET oS»s$(B) : 
RETURN 

loot) RETURN 

1010 IF dS(v(2) ,v(l} ,1)>"9- THE 

N LET t-0 : RETURN 

1020 IF v(3)-26 THEN LET b-v(4 

): LET a-VAL d$ (v ( 2) , v (1) , TO 8 

) : GOTO 1050 

1030 IF dSCv(4).vt3) ,1)>"9" THE 

N LET t=0: RETURN 

1040 LET a-VAL dS tv (2) , v ( 1) . TO 
8): LET b-yAL dS fv (4) , v ( 3) . TO 
B) 

1050 IF o5="+" THEN LET t=a+b 
RETURN 

1060 IF oS-"-" THEN LET t-a-b 
RETURN 

1070 IF oS-"/* AND b-0 THEN LI 

T t-0: RETURN 

1080 IF oS-'/' THEN LET t-a/b: 
RETURN 

1090 IF OS-"*" THEN LET t-a*b: 
RETURN 

1100 IF oS-"t" THEN LET t- (a»t 

)/100: RETURN 

mo IF oS-"$" THEN LET t-0: F 

OR s-v(2) TO v(4) I LET t-t+VAL 

dS(ai,v{l), TO 8): NEXT B: HETUR 

N 

1120 IF oS-"!." THEN LET t-0: F 

OR fl=vtl) TO v(3): LET t-t+VAL 

dS(V(2),a. TO 8): NEXT b: HETUR 

N 

1130 RETURN 

1140 IF z-1 THEN IF VAL aS(2)- 

OH UAL a$(4)»0 THEN LET f-1': 
RETURN 

1150 IF 2=2 THEN IF UAL aSt2 T 

3)>30 OR VAL aS(2 TO 33-0 OR 



UAL aS(5)-0 THEN LET f-1 : RETU 

RN 

1160 IF 2-3 THEN IF VAL aS(4 T 

.'>)>30 OR UAL aS(4 TO 5)»0 OR 

VAL a${2)-0 THEN LET f-1: RETU 

RN 

1170 IF 2-4 THEN IF VAL aS(2 T 

O 3)>30 OR VAL aS(5 TO 6) >30 OH 

UAL aS(2 TO 3}-0 OR VAL aS(5 T 
6)-0 THEN LET f-1: RETURN 
IIBO IF z-5 OR Z-7 OR I-ll THEN 
IF VAL aS{2)-0 THEN LET f-1; 

RETURN 
1190 IF 2=6 OR 1-8 OR z"10 THEN 
IF VAL a$(2 TO 3)-0 OR UAL aS 
(2 TO 3)>30 THEN LET f*l: RETU 
RN 
1200 LET aS-" ": FOR g-1 

TO c: LET 8S(g)"aS{q): NEXT g: 

GCSUB 890: IF oS-"i" AND tv(l) 
>v(3) 0Rv(2)<>vC4)) THEN LET 
f-1: RETURN 

1210 IF oS="S* AND (v(l)<>v(3) 
OR v(2)>v(4)) THEN LET f-1: RE 
TURN 

1220 LET f=0: RETURN 
1230 LET o$-dSCY+wy,x+w)i,17) 
1240 PRINT FLASH 0+(gS»*5" AND 

tS'-'VAL"); INK 0+(2 AND q3-"4" 
)l PAPER 7-(2 AND gS-"2" ) - CgS-* 
1" OR q3-"5-) lAT y*2+2,R*9-i'5; (d 
3(y+wy,3t+wx. TO 8) AND tS-"UAL" 
) : {dS(y-wy,^+wx,9 TO 16) AND tS 
--IGUA") : RETURN 
1250 SOUND .4,10 
1260 LET as-" ": LET OB- 


1270 PAUSE 20: PRINT AT cy«2 , (c 
ji-l)*9+5+oa! BRIGHT 1: OUER 1;* 

m 

12S0 IF CODE INKEYS>30 AND CODE 

INK£Y3<12B THEN LET s3{ob+1)= 
INKEY$: PRINT AT cy*2 , (cx-1) *9+ 
5+08iS$(oa+l) : LET oa-os+1 : GOT 
1350 
1290 IF CODE INKEY3-12 AND O3>0 

THEN LET 03-oa-l: LET sS Coa+1 
)-■"; PRINT AT cy*2 , ( Ccx-1 ) *9) + 
ShI'jb; over 0[' BRIGHT 0;" " : GO 
TO 1270 
2 300 IF CODE 1NKEY$-13 AND bS=" 

" THEN RETURN 
1310 IF CODE INKEYS-13 AND tS=* 
VAL' AND CODE aS(l)>64 THEN LE 
T dS(wy+cy-l ,wx+cx-l,17)-i"2" : L 
ET d$ (wy+cy-l,ux+cx-l. TO 8)-b$ 
: LET y-cy-1: LET x-cx-1: GOSUB 

1230: RETURN 
1320 IF CODE INKEYS-13 AND t$-" 
VAL " THEN GOSUB 1380: LET ofl» 
0: LET dS(wy+cy-l ,wx+cx-l. TO 8 
)=aS: LET Y=Gy-l: LET x=cx-J : G 
OSUB 1230: RETURN 
1330 IF CODE 1NKEY$-13 AND tS-" 
rOUA" THEN GOSUB 1380: LET oa- 
0: LET dS (wy+-CY-l,wx+cx-1.9 TO 
16) -sS: LET x-cK-l; LET y-cy-1: 

GOStre 12 30: RETURN 
1340 GOTO 1270 
1350 IF os-e AND t3-'VAL* THEN 

SOUND .1,-10; GOSUB 1380: LET 
dS(WY+cy-l.wx+CX-l, TO 8)-aS: L 
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ET y-cy-1: LET x-cx-l r GOSUB 12 
30: RETUHN 

1360 IF oa-a AND tS-'IGUA'' THEN 
SOUND .l.v<-10: GOSUB 1380: LET 

d$<WY+cy-l,w;(+cx-l ,9 TO 16) =3$ 
LET y=CY-l: LET ji=cx-l: GOSUB 

1230: RETURN 
1370 GOTO 1270 

1360 PBINT AT cy«2, ((cji-l)*9)+5 
4os; BRIGHT 0; OVER l;" " 
1390 IF tS-"lGUA" THEN GOSUB 1 
490: RETURN 

1400 GOSUB 1410: PRINT AT CY*2, 
(cx-l) "9+5:95: RETURN 
1410 LET bS-" 000- : FOR 
u-1 TO oa: LET b$ (u+(8-os> ) -g$ C 
u) : NEXT u 
1420 FOR u-1 TO 11 
1430 IF bStuK>'." THEN NEXT u 
1440 IF u>=ll THEN LET b$C93=" 
.": LET B$-bSK TO ): RETURN 
1450 LET w=6-u 

1460 IF w<0 THEN LET w»ABS w+1 
: LET aS-bSd* TO V+B) : RETURN 
1470 LET sS"* 

1480 FOR u=l TO 8-u: LET aS (w+u 
)-bS(u) : NEXT U: RETURN 
1490 IF aSd)'"!' THEN LET aS= 
" : LET d$(wy+cy-l,w)i--i-c 
x-l,l?)-'0': RETURN 
1500 LET aS-""; FOR Z-1 TO 8 : L 
ET aS-aS+(9S{z) AND 3$(2)<>" ") 
1510 NEXT i: LET c-LEN a$ 
1520 IF c<4 THEN LET dSCwy+cy- 
l.wx+cx-1.17)-''4': RETURN 
1530 RESTORE 1630: FOR z-l TO 1 
1: LET f-0: READ m$ 
1540 FOR w=l TO c 
1550 IF mS{w}-"A'' THEN GOSUB 1 
650: IF f THEN GOTO 1610 
1560 IF mS(w)="N- THEN GOSUB 1 
670: IF f THEN GOTO 1610 
1570 IF m3(w)-"0' THEN GOSUB 1 
690* IF f THEN GOTO 1610 
1560 IF inS(w)-"Z" THEN GOSUB I 
710: IF f THEN GOTO 1610 
1590 NEXT w: GOSUB 1140: IF NOT 

f THEN LET sS"" ' ■ ""Oft 



w-1 TO c: LET sSCw)=aStw): NEX 
T w: LET d$ (wy+cy-l .«x=cx-l , 163 
-CHRS z: LET dS (wy+cy-1 , uX+cx-1 
,17}='\': RETURN 
L600 GOTO 1620 
1610 NEXT z 

1620 LET dS(«Y+CY-l,wx+CX-l,171 
=-4": RETURN 

1630 DATA -ANANOOO-.-ANNANOO"." 
ANANNOO" , "ANNANNO" 
1640 DATA "AN2N00O0"."ANNZN0O0" 
, "ANZNNOOO" , "ANNZNNOO" , "ANZNNNO 
0" , "ANNZNNNO- , "ANZNNNNO" 
1650 IF a$(w>>="A" AND a$(w)<=" 
X" THEN RETURN 
1660 LET f=l: RETURN 
1670 IF aS(w)> = "0'' AND aS(w}<=" 
9" THEN RETURN 
1660 LET f-1: RETURN 
1690 LET c$=aStu): IF c.S='*-" OR 

cS="-" OR cS="*" OR trS-'/'* OR 
cS = "l" OR cS='5" OR cS='K." THEN 

RETURN 
1700 LET f-1: RETURN 
1710 IF aS(w)=''Z" THEN RETURN 
1720 LET f-1: RETURN 
17 30 FOR y-1 TO 30: FOR x-1 TO 
24: LET d3(y,x. TO 8)=* 0.00 
": LET dS(y.x,17)="0": LET dS (y 
,X.180=CHRS 0: NEXT x: NEXT y 
1740 RESTORE 1750: FOR x^USR "a 
" TO USR "c"+7: READ a; POKE x, 
a: NEXT x: RETURN 
1750 DATA 8. B,S, 8,8, 9.6.8 
1760 DATA 0,0,0,255.0,0,0,0 
1770 DATA a. 8, 6,255,8.8,6.8 
17B0 INPUT "NOME DO AROUIVO ?" ; 
n$ 

1790 SAVE nS DATA dSO 
1800 PRINT *1:AT . : "PRESSTONE 

y PABA yERIFICAR " 
1810 PAUSE 0: IF rNKEy$ = ''V" OR 
INKEY$-"v" THEN GOTO 1830 
1820 RETURN 

18.30 UEHTFY nS DATA dSO : RETUR 
N 
1840 INPUT "NOME DO ARQUiyO ?" : 



1850 LOAD n$ DATA dS(): RETURN 

a 

1490 PRINT €448: PRINT 8448,;: IF 
LEN(DSCCC.CR))-I THEN PRINT'NA 
DA A COPIAH": SOUND 5 . 5 : TOR K-1 
TO 500: NEXT: RETURN ELSE PRINT " 
COPIA aBSOLUTA OU rELATIVA"; 
1500 AS-INKEYS:ir AS-"" THEN 15 
00 

1510 IF AS-CHRSC13) THEN RETURN 
1520 IF A$-"A" THEN TC-1:G0T0 1 
540 

1530 IF ASO'R" THEN 1490 ELSE 
TC-0 

1540 PRINT §448 

1550 IF TC=0 AND ASC (DS CCC.CR] ) 
0131 THEN PRINT §448."EHRAD0 : 

MODO COPIA - SOMENTE EQUACOE 
S'liSOUND l,5:FOR D=l TO 500:NE 
XT D:GOTO 490 

1560 PRINT §448: PRINT #448. "COP 
lA DE IINHA OU cOLUNA" ; 
1570 AS=INKEYS;IF AS-"" THEN 15 
70 

1580 IF A$-CHR$(13) THEN RETURN 
1590 IF AS="C" THEN DC=1:COTO 1 
610 

1600 IF ASO'L" THEN 1560 ELSE 
DC-0 

1610 PRINT 6448: PRINT 6448, "COH 
ECAH PELA CELULA" ;: INPUT AS: IF 
AS""" THEN RETURN 
1620 S1>=ASC(AS)-64:IF SlCl OB S 
1>25 THEN 1610 
1630 S2=UAL(MID$tAS,2)) :IF S2<1 

OR S2>30 THEN 1610 
1640 PRINT 6448: PRINT 6448 , "TEH 
MINAR NA CELULA"; : INPUT AS 
1650 IF AS-"" THEN RETURN 
1660 C1»ASC(AS)-64;IF CKl OR C 
1>25 THEN 1640 
1670 C2-VAL(MID$(AS,2)) :IF C2<1 

OR C2>30 THEN 1640 
1680 PRINT 6448."C0PIAND0 - E 
SPERE" 




j]5l Entrada das equa^oes no Spectrum. 



C&lculo dos resultados na tela do Spectnim. 
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1690 IF TC-1 THEN 1970 
17O0 IF DC-1 THEN 1840 
1710 IF C20S2 THEN 2090 
1720 AS=ASC(MID$[D3tCC.CR) ,2))- 
64: IF AS026 AND AS+C1-S1>25 TH 
EN C1-25+S1-AS 

1730 AS-A3C(MIDS{DS(CC.CR3 ,5))- 
64:IF AS026 AND AS+Cl-Sl>25 T« 
EN C1-26+S1-AS 
1740 DSCS1,S2)-DS tCCCR) 
1750 FOR I-Sl+1 TO CI 
1760 AS-DS(I-1,S2) 
1770 IF MIDS{A$.2.1)-''Z" THEN 1 
790 
17B0 MIDS CA5. 2 , 1 ) -CHB3 (ASC (MIDS 

(AS,2.1))+1) 

1790 IF MID5{AS.5,1)-"Z" THEN 1 

810 

1800 MIDS{AS.5,1)-CHR3(ASC(MIDS 

(AS,5,1))+1) 

1810 DS{I,S2)-AS:NEXT 

1B20 IF C1>CX THEN CX-Cl 

1830 GOTO 2080 

1640 IF ClOSl THEN 2090 

1850 AS-UAL(MID$CD5(CC,CH) .3,2) 

);rF AS+C2-S2>30 THEN C2-30+S2- 

AS 

1860 AS-UAL(MIDSCD3(CC.CR) .6)) . 

IF AS+C2-S2>30 THEN C2-30+S2-AS 

1870 DS(S1.S2)-DS{CC,CR) 

1880 FOR I-S2+1 TO C2 

1890 AS-DS(S1,I-1) 

1900 IF «rDStAS.2.1)-"Z'' THEN 1 

920 

1910 V>VAL(MIDS(AS.3,Z))+1:IF W 

<10 THEN MIDS(AS.3,2)=STBS(V) E 

LSE MIDS{AS,3,2)-MID3(STHS(U) ,2 

.2) 

1920 IF niDSltiS.b.D'-Z" THEN 1 

940 

1930 y-VAL(MID${A$,6,2))*l:IF V 

<10 THEN MID$(AS.6,2)-STRS(V) E 

LSE MIDS(AS.6,2)-MIDS(STRS(V) ,2 

,2) 

1940 DS (SI, I) -AS: NEXT 

1950 IF C2>aX THEN BX-C2 

1960 GOTO 2080 

1970 IF DC-1 THEN 2030 



1980 IF C20CR THEN 2090 

1990 FOR I-CC+1 TO CI 

2000 D$(I,CB)-D$(I-1,CR) :NEXT 

2010 IF C1>CX THEN CX"C1 

2020 GOTO 2060 

2030 IF ClOCC THEN 2090 

2040 FOR r-CR+1 TO C2 

2050 D$(CC,I)-DS(CC.I-1) :NEXT 

2060 IF C2>RX THEN RX-C2 

20 70 GOTO 208 

2080 MO-l:GOSUB 70:RETURN 

2090 PRINT e448,'erro NO DESTIN 

0": SOUND 1,5: FOB D=-l TO 500;NEX 

T D 

2100 GOTO 20B0 
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1490 LOCATE , 21 : PRINTSPC (35) : L 

OCATE 0,21: IF LEN (D$ (CC.CR) ) -1 

THEN PRINT'NADA PARA COPIAB":FG 

R K=l TO 500: NEXT: RETURN ELSE P 

RINT"COPIA <A>BSOLUTA OU <R>ELA 

TIVA: -;: 

1500 A$"INKEYS;IF AS-" THEN 15 

00 

1510 IF AS=CHBStl3> THEN RETURN 

1520 IF AS = "'A" THEN TC-1:G0T0 1 

540 

1530 IF AS<>"B" THEN 1490 ELSE 

TC-0 

1540 LOCATE 0,21 : PRINTSPC (35) :L 

OCATE 0,21 

1550 IF TC=0 AND ASC {DS (CC , CR) ) 

0131 THEN PHINT'MODO DE COPIA 

EHRADO - S<J EOUACOES!"; :rOB D-1 

TO 50 0: NEXT: GOTO 490 
1560 LOCATE 0,21 :PHINT"C6PIA PO 
H <LTHHA> OU <COLUNA>: "; 
1570 AS=INKEYS:IF A$-"- THEN 15 
70 

1580 IF A$-CHR$(13) THEN RETURN 
1590 IF AS-"C" THEN DC-1:G0T0 1 
610 

1600 IF A$<>''L'- THEN 1570 ELSE 
DC=0 
1610 LOCATE 0,21:PRINTSPCC37> :L 

OCATE 0,21: PRINT" TNICIA NA CfiLU 



LA* r: INPUT AS: IF AS-" THEN RET 

URN 

1620 Sl-ASCtA$)-64:IF SKI OR S 

1>25 THEN 1610 

1630 S2-VAL(MIDS(AS,2)) :IF S2<1 

OR S2>30 THEN 1610 
1640 LOCATE 0. 21 : PRINTSPC (37J : L 
OCATE 0,21:PHINT"TERMrNA NA CfiL 
ULA"! : INPUT A$ 
1650 IF A$«" THEN RETURN 
1660 Cl-ASC(AS)-64:IF CKl OR C 
1>25 THEN 1640 
1670 C2-VAL(MIDS(AS,2)) :1F C2<1 

OR C2>30 THEN 1640 
1680 LOCATE 0. 21 : PBINTSPC ( 35] : L 
OCATE 0,21:PflINT-COPIANDO. . . AG 
U/VRDE ** 

1690 IF TC-1 THEN 1970 
1700 IF DC-1 THEN 1340 
1710 IF C20S2 THEN 2090 
1720 AW=A3C(MIDS(D3(CC.CRJ ,Z))- 
64:IF AW026 AND AW+C1-S1>25 TH 
EN C1-25+S1-AW 

1730 AW-'ASCCMIDSCDStCCCR) ,5))- 
54:IF AM026 AND AW+C1-S1>25 TH 
EN C1-25+S1-AM 
1740 D$(S1,S2)-D${CC.CH) 
1750 FOR I=S1+1 TO CI 
1760 AS-D3(I-1.S2) 
1770 IF MIDS(A$,2.1)-*Z'' THEN 1 
790 

1780 MIDS (AS, 2.1) -CHRS (ASC (MIDS 
CA9.2,1))+1) 

1790 IF MID${A5,5.1)-"Z" THEN 1 
BIO 

1800 MIPS ( AS , 5 , 1 ) -CHB$ (ASC (MIDS 
(AS.5.1))+1) 
IBIO D$(I,S2)-A$:NEXT 

1820 IF C1>CX THEN CX=C1 

18 30 GOTO 2080 

1B40 IF ClOSl THEN 5090 

1850 AU-VAL(MIDS(DSCCC,CR) ,3,2) 

):IF AW+C2-S2>30 THEN C2=30+S2- 
AW 

1860 AU«VAL(MIDS(D$(CC,CR) ,6}) ; 
IF AU+C2-S2>30 THEN CZ=30+92-AW 
1870 DS(S1,S2)«D$CCC.CR) 
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Tela de equa^des (A esqucrda) e enlrada de valores e rdtulos no Acom, micro sent equivalente no Brasil. 
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1880 FOR 1=S2+1 TO CZ 

1890 AS=D$CSKI-1) 

1900 IF MID3(A$,2,1)-"Z- THEN 

9Z0 

1910 V=UAL{MTDSCAS.3,2))+1:IF U 

<10 THEN MIDStA3.3,2)=STRS(V) 

LSE MIDSCAS,3,2}=MIDStSTBS(V3 

1920 IF MIDS(AS.5,1)-"Z" THEN 

940 

1930 V»VAL tMIDSCA$,6,2))+l:ir U 

<10 THEN MIDS(A$.6,2)-STRS(V5 

LSE MIDSCAS.6.2)=MIDS(STRS(y) 

,2) 

1940 DS (SI. I) -AS: NEXT 

1950 IF C2>ax THEN RX=C2 

1960 GOTO 20aO 

1970 IF DC=1 THEN 2O30 

1980 IF C20CH THEN 2090 

1990 FOR I=CC-H TO CI 

2000 D$(I,CB)=DS(I-1.CR} :NEXT 

ZOIO IF C1>CX THEN CX=C1 

20Z0 GOTO Z080 

2030 IF ClOCC THEN 2090 

2040 FOR I-CH+1 TO C2 

2050 DS(CC.I)=DS(CC,I-1> :NEXT 

2060 IF C2>BX THEN RX=C2 

2070 GOTO 2080 

20S0 MO-liGOSUB 70: RETURN 

2090 LOCATE . 21 ; PRIHTSPC ( 35 ) rL 

OCATE 0, 21 : PRINT" ERRO NA DESTIN 

ACAO'':FOR D=l TO 500:NEXTD 

2100 GOTO 20aO 





< 1 




16 30 


1 


IF S2 




164 


u 


956: 


E 


: TNP 


2 


1650 




1660 


I 


< 1 




1670 


U 


IF C2 


£ 


1680 


2 


958: 



a] 



1490 VTAB 23: HTAB I: CALL - 

95B: IF LEN (DSCCCCR)) = 1 TH 

EN PRINT "NADA PABA COPIAR" ; C 

HR$ {?);: FOR K = 1 TO 1000; NE 

XT : RETURN 

1495 PRINT -COPTA [A)BSOLUTA 

U [RIELATIVA " ; 

1500 GET A$ 

3510 IF AS = 

085 

1520 TF A$ = 

GOTO 1540 

1530 IF AS 

1535 TC = 

1540 VTAB 23 

958 

1550 IF TO - AND ASC (D$ (CC 

.CR)) < > ]3) THEN PRINT "MOD 

DE COPIA INCOHRETO - SO EQUAC 

OES": CHR$ {?};: FOR D = 1 TO 1 

000: NEXT : GOTO 490 

1560 VTAB 23; HTAB 1: CALL - 

958: PRINT 'COPlA [CIOHJNA OU [ 

LIINHA 



CHRS (13) THEN 2 
= "A" THEN TC - 1 : 
< > "R" THEN 1490 

HTAB 1 : CALL - 



CHRS (13) THEN Z 
"C" THEN DC = I: 



1570 GET AS 
1580 IF AS ■ 
085 

1590 IF AS ' 
GOTO 1610 

1600 IF AS < > "l" THEN 1560 
1605 DC = 

1610 VTAB 23- HTAB 1: CALL - 
958- PRINT "COMECA NA CEL.: ";: 
INPUT AS: IF AS - "" THEN 2085 



OR SI > 25 THEN 163 

S2 - VAL ( WIDS (AS. 2) } : 

< 1 OB S2 > 30 THFN 1610 
VTAB 23: HTAB 1: (.ALL - 

PRINT "TERMINA NA CEL.: ": 
IJT AS 

IF AS - "" THEN 2085 
CI = ASC (AS) - 64: TF CI 
OB CI > 25 THEN 1640 
C2 = VAL ( MIDS (AS, 2)) : 

< 1 OF C2 > 30 THEN ] 640 
VTAB 23: HTAB 1: CALL - 

PBINT "COPIANDO - AGUAHDE . 



1690 IF TG - 1 THEN 1970 
1700 IF DC = 1 THEN 1 B40 

1710 IF C2 C > S2 THEN 2090 
1720 AS = ASC ( MIDS (DSCCC.CR 
) , 2) ) - 64 : IF AS C > 26 AND A 
S + CI - SI > 25 THEN CI - 25 + 

SI - AS 
1730 AS - ASC ( MID$ (DSCCC.CR 
) .5)) - 64: IF AS < > 26 AND A 
S + CI - SI > 25 THEN CI ■= 25 + 

SI - AS 
1740 D$(S1,S2) = D$(CC,CR) 
FOB I = SI + 1 TO CI 
AS - DSd - 1.S2) 



17 50 

1760 

17 70 IF 

HEN 1790 

1780 AS 
( ASC C MIDS 
MIDS (AS, 3) 

1790 IF 

HEN 1810 

ISOO AS - 
( ASC ( MIDS 
MIDS CAS. 6) 

1810 DS(I,S2) 

1820 IF Cl > 



MIDS (AS. 2.1) - 

LEFTS (AS.l) + 
CAS, 2.1) J + 

MIDS (AS. 5.1) - 

LEFTS (AS, 4) + 
(A3. 5.1)) + 

= AS : NEXT 
CX THEN CX ■ 



" 7 " T 

CHRS 
I) + 

"2" T 

CHRS 
1) + 



Cl 



im 



1620 si 



ASC (AS) 



64: IF SI 



1930 GOTO 2080 

1840 IF Cl < > SI THEN 2090 

IB5 AS = UAL C MIDS {D$(CC,CH 

) , 3 , 2 ) ) : IF AS + C2 - S2 > 30 T 

HEN C2 = 30 + S2 - AS 

1860 AS -^ UAL { MIDS (DS(CC.CR 

) ,6) ) : IF AS + C2 - S2 > 30 THE 

N CZ - 30 + S2 - AS 

1870 DS(S1,S2) - DSCCC.CR) 

1880 FOB I = S2 + 1 TO C2 

1890 AS = DS(S1.I - 1) 

1900 IF MIDS {A$.2,l) - "2" T 

HEN 1920 

1910 V - VAL ( MIDS (AS. 3. 2)) 
+ 1: TF U < 10 THEN AS ■= LEFTS 
{AS. 2) + * " + STHS (U) + MI 
DS CAS, 5) : GOTO 1920 
1915 AS - LEFTS CAS, 2) + STBS 

(V) + MIDS (AS. 5) 
1920 IF MIDS {AS. 5,1) - "Z" T 
HEN 1940 

1930 U - UAL C MIDS (A5.6.2)) 
+1- IF V < 10 THEN AS - LEFTS 

(AS. 5) + " " + STRS (V) + MI 

DS CAS.8> : GOTO 1920 

1935 A3 - LEFTS (AS.S) + STHS 

CV) + MIDS (AS.B) 
1940 D3(S1,I] - AS: NEXT 
1950 IF CZ > RX THEN RX = C2 , 
1960 GOTO 2080 




O que 6 uma planfiha [ntegrada? 

Os usuSrios de microcomputadores 
com maior disponibilidade de mem6ria 
RAM — entre eles os da linha PC e at- 
guns modelos da linha Apple — podem 
ter o privil6gio de utitizar os programas 
integrados de planiiha eletrfinica. Eles 
recabem esta denomiriaQao por inclu(- 
rem, al6m do programa de planiiha de 
cSlculo propriamente dito, outros pro- 
gramas, como OS de elaborapSo de grS- 
ficos (a partir dos dados da planiiha), 
montagem e gestao de bancos de da- 
dos relacionais, e, em alguns tipos, pro- 
cessamento de texto. 

A grande vantagem de sistemas 
desse ttpo 6 a perfeita integra9ao de da- 
dos em cada uma das aplicagSes. AI6m 
disso, eles tornam dispensSvel trocar 
programas, quando se deseja utilizaf 
um outro aplicativo. 

Para os micros da linha Apple que 
t^m memdria RAM de 128 Kbytes ou 
mais, jd existe um pacote integrado: o 
Totalwofks. Mas os pacotes mais di- 
fundidos slo os disponfveis para os mi- 
cros da linha PC (de dezesseis bits), tais 
como Lotus 1-2-3, o Framework e o 
Symphony. 



I THEM ?030 

> CR THEN 2090 
CC + 1 TO Cl 
= DSCI - l.CR) : 



N 



1970 IF DC = 
19B0 IF CZ < 
1990 FOR T - 
2000 DSd.CB) 
EXT 

2010 IF Cl > CX THEN CX = Cl 
2020 GOTO 2080 
2030 IF Cl < > CC THEN 2090 
2040 FOR I = Ctt + 1 TO C2 
2050 DSCCCI) - DS(CC,I - 1): 
EXT 

2060 IF C2 > RX THEN RX = C2 
2070 GOTO 2080 
2 080 MO = 1: GOSUB 7 
2 08 5 VTAB 23; HTAB 1 
958: RETURN 

2090 VTAB 23: HTAB I: CALL - 
958: PRINT "ERRO NA DESTINACAO" 
: FOR D - 1 TO 1000: NEXT 
210 GOTO 2 080 
2500 IF PEEK C22Z) = 5 THEN 
GOTO 1470 
2510 END 

3000 HOME : PRINT "TERMING P 
ROGRAMA? (S/N) "; ; GET AS 
3010 IF AS < > 'S" THEN GOSU 
B 70: RETURN 
3020 END 



CALL ~ 



i\\. -. 



p 


^^^^ftBi 


»-;->. ^ 


syr^.- 








^ UNHA 


FABRICANTE 


MOOELO 
Thor2010 


' FABWCANTE 


MODELO 


PAIS 




Apple 11 + 


Appletronica 


Appletronica 


Ttior2010 


Brasll 


Apple 11 + 


Apple n-»^ 


CCE 


MC-4000Exato 


Apply 


Apply 300 


Brasii 


Sinclair ZX-81 


: Apple 11 + 


CPA 


Absolutus 


CCE 


MC-4000 Exato 


Brasii 


A'pplell + 


Apple 11 + 


CPA 


Polaris 


CPA 


Absolutus 


Brasii 


Apple 11 + 


Apple 11 + 


Digitus 


DGTAP 


CPA 


Polaris 


Brasll 


Apple 11 + 


Apple II + 


Dismac 


D-6100 


Codlmex 


CS-6508 


Brasll 


TRS-Color 


Apple 11 + 


ENIAC 


ENIAC 11 


Digitus 


OGT-100 


Brasll 


TRS-80 Mod.HI 


Apple 11 + 


Franklin 


Franklin 


Digitus 


DGT-1000 


Brasii 


TRS-aO Mod.lli 


Apple 11+ 


Houston 


Houston AP 


Digitus 


DGTAP 


Brasii 


Apple 11 + 


Apple 11 + 


Magnex 


DM II 


Dismac 


O-8000 


Brasll 


TRS-80 Mod. 1 


Apple 11 + 


Maxltronica 


MX2001 


Dismac 


D-8001/2 


Brasii 


TRS-BO Mod. 1 


Apple 11 + 


Maxitronica 


MX-48 


Dismac 


D-8100 


Brasll 


Apple 11 + 


Apple tl+ 


Maxilronjca 


MX-64 


Dynacom 


MX-1600 


Brasll 


TRS-Color 


W Apple 11 + 


Maxitronica 


MaxltronicI 


ENIAC 


ENIAC li 


Brasii 


Apple 11 + 


2 Apple H + 


Microcralt 


CrafllPlus 


Engebras 


AS-1000 


Brasii 


Sinclair ZX-BI 


uV Apple 11+ 


Mllmar 


Apple II Plus 


Filcres 


NEZ-SOOO 


Brasii 


Sinclair ZX-81 


1 Apple 11 + 


Mllmar 


Apple Master 


Franklin 


Franklin 


USA 


Apple 11 + 


': Apple If + 


Milmar 


Apple Senior 


Gradiente 


Expert GPC1 


Brasll 


MSX 


Apple 11 + 


Omega 


MC-400 


Houston 


Houston AP 


Brasii 


Apple 11 + 


Apple 11 + 


Polymax 


Maxxi 


Kemltron 


NajaSOO 


Brasll 


TRS-60 Mod.lli 


Apple 11 + 


Polymax 


Poly Pius 


LNW 


LNW-80 


USA 


TRS-80 Mod. 1 


Apple 11 + 


Spectrum 


MIcroengenhol 


LZ 


Color 64 


Brasii 


TRS-Color 


Apple 11 + 


Spectrum 


Spectrum ed 


Magnex 


DM II 


Brasii 


Apple 11 + 


Apple 11 + 


Su porta 


Venus II 


Maxitronica 


MX-2D01 


Brasii 


Apple 11 + 


Applelt + 


Sycomig 


SIC! 


Maxitronica 


MX-48 


Brasii 


Apple 11 + 


Apple 11 + 


Unltron 


APII 


Maxitronica 


MX-64 


Brasii 


Apple 11 + 


Apple 11 + 


Victor do Brasil 


ElppallPlus 


Maxitronica 


Maxitronic 1 


Brasii 


Apple 11 + 


Apple 11 + 


Victor do Bras!! 


Elppa Jr. 


Microcraft 


Craft II Plus 


Brasii 


Apple 11 + 


Apple He 


Microcraft 


Craft He 


Microcraft 


Caltlle 


Brasii 


Apple He 


Apple He 


Microdigital 


TK-3000lle 


Microdigital 


TK-3000lle 


Brasii 


Apple Me 


Apple He 


Spectrum 


Microengenholl 


Microdigital 


TK-82C 


Brasll 


Sinclair ZX-81 


USX 


Gradiente 


Expert GPC-1 


Microdigital 


TK-e3 


Brasii 


Sine lair ZX-81 


MSX 


Sharp 


HotbltHB-8000 


Microdigital 


TK-as 


Brasll 


Sinclair ZX-81 


Sinclair Spectrum 


Microdigital 


TK-90X 


Microdigital 


TK-90X 


Brasll 


Sinclair Spectrum 


Sinctaif Spectrum 


Timex 


Timex 2000 


Microdigital 


TKS-800 


Brasf) 


TRS-Color 


Sinclair ZX-81 


Apply 


Apply 300 


Milmar 


Apple II Plus 


Brasll 


Apple n + 


Sinclair ZX-81 


Engebras 


AS-1000 


MHmar 


Apple Master 


Brasii 


Apple 11 + 


Sinclair ZX-81 


Fllcres 


NEZ-8000 


Milmar 


Apple Senior 


Brasii 


Apple 11 + 


Sinclair ZX-81 


Microdigital 


TK-82C 


Multix 


MX-Compacto 


Brasii 


TRS-80 Mod.lV 


Sinclair ZX-81 


Microdigital 


TK-83 


Omega 


MC-400 


Brasll 


Apple 11 + 


Sinclair ZX-81 


Microdigital 


TK-85 


Polymax 


Maxxl 


Brasll 


Apple 11+ ^ 


SinclalrZX-ei 


Prologica 


CP-200 


Polymax 


Poly Plus 


Brasll 


Apple 11 + 


Sinclair ZX-81 


nitas 


Ringo n-470 


Prologica 


CP-200 


Brasii 


Sinclair ZX-SI 


Sinclair ZX-81 


Timex 


Timex 1000 


Prologica 


CP-300 


Brasll 


TRS-aO Mod.lli 


Sinclair ZX81 


Timex 


Timex 1500 


Prologica 


CP-400 


Brasii 


TRS-Color 


TRS-80 IVIod. 1 


Dismac 


D-8000 


Prologica 


CP-500 


Brasii 


TRS-aoMod.lM 


TRS-80 Mod. 1 


Dismac 


D-8001/2 


Ritas 


RlngoR-470 


Brasii 


Sinclair ZX-81 


TR5-80 Mod. 1 


LNW 


LNW-30 


Sltarp 


Hotbit H8-800C 


Brasii 


MSX 


TRS-80 Mod. 1 


Video Genie 


Video Genie 1 


Spectrum 


Microengenho 


1 Brasii 


Apple 11 + 


TRS-80 Mod.lll 


Digitus 


DGT-100 


Spectrum 


Microengenho 


11 Brasii 


Apple Me 


TRS-80 Mod.lH 


Digitus 


DGT-1000 


Spectrum 


Spectrum ed 


Brasii 


Apple H + 


TRS-80 Mo<t.lll 


Kemltron 


NajaSOO 


Suporte 


Venus 11 


Brasll 


Apple 11 + 


TRS-80 Mod.lH 


Prologica 


CP-300 


Sycomig 


SICI 


Brasii 


Apple 11 + 


TRS 80 Mod.lH 


Prologica 


CP-500 


Sysdata 


Sysdata III 


Brasll 


TRS-BO Mod.lli 


TRS 80 Mod.lH 


Sysdata 


Sy$daialll 


Sysdata 


Sysdata IV 


Brasii 


TRS-80 Mod.lV 


TFtS-80 Mod.lli 


Sysdata 


Sysdata Jr. 


Sysdata 


Sysdata Jr. 


Brasii 


TRS-BO Mod.lll 


TflS80Mod.IV 


Multix 


MX-Compacto 


Timex 


Timex 1000 


USA 


Sinclair ZX-81 


TRS-80 Mod.lV 


Sysdata 


Sysdata IV 


Timex 


Timex 1600 


USA 


Sinclair ZX-81 


TflS-Color 


Codlmex 


CS-6508 


Timex 


Timex 2000 


USA 


Sinclair Spectrum 


TRS-Color 


Dynacom 


MX-1600 


Unitron 


APH 


Brasii 


Apple 11 + 


TRS-Color 


LZ 


Color 64 


Victor do Brasll 


Elppa 11 Plus 


Brasll 


Apple 11 + 


TRS-Color 


Microdigital 


TKS-800 


Victor do Brasii 


Elppa Jr. 


Brasll 


Apple 11 + 


TRS-Color 

w 


Prologica 

■ m 


CP-400 


Video Genie 


Video Genie 1 


USA 


TRS-ao Mod. 1 


INPUT foi especialmente projetado para 


^ 


-y 


^ 


h!!<i 


,1 


microcomputadores compatlveis com as sete principals ^^J Sinclair zx-si 


H-H TRS-80 L 


^ 1 TK 2000 


flhrimx 




linhas existentes no mercado. 

Os blocos de texlos e listagens de programas aplicados ^^^ 






Stuntto emblefiM ftir seguido de uma 
m», entSo lanto ■> teulo como as 


I - 


—r- 


.apeoas a determinadas linhas de micros podem ser 
ioentificados por meio dos seguintes sfmbolos: 


^mm 


■ ■ 


m 


progTMtas que u 
espklncos pira i 


sesuem passim a ser 
rmna indlcada. . 


MHMI Spectrum 


■Ui TRS-Color L 


■LI Apple II 



PROGRAMApAO BASIC 

Famflias de curves. Envolt6rias. Focos e cCispides. Padroes 
de pontos. Ressonincia. Caos. Dinamica de populagoes. 

c6digo de maquina 

Avalanche: as quatro partes da rotina de salto. 
Efeitos sonoros. Ajustamento dos apontadores de tela. 

PROGRAMAQAO BASIC 

Tipos de modelo. Probabilidade e comportamento aleat6rio. 
Simulagoes. Tipos de distribuigao. Comparagao de eventos. 



m^9 



\>i^m. 



CURS 









e- • 



,(;^oB^^\^ 



;^A-. 








